diff --git a/experiments/22/Project2.dpr b/experiments/22/Project2.dpr
new file mode 100644
index 00000000..72483acf
--- /dev/null
+++ b/experiments/22/Project2.dpr
@@ -0,0 +1,16 @@
+program Project2;
+
+uses
+ Vcl.Forms,
+ Unit1 in 'Unit1.pas' {Form1},
+ Unit2 in 'Unit2.pas' {Form2};
+
+{$R *.res}
+
+begin
+ Application.Initialize;
+ Application.MainFormOnTaskbar := True;
+ Application.CreateForm(TForm1, Form1);
+ Application.CreateForm(TForm2, Form2);
+ Application.Run;
+end.
diff --git a/experiments/22/Project2.dproj b/experiments/22/Project2.dproj
new file mode 100644
index 00000000..f91cd81d
--- /dev/null
+++ b/experiments/22/Project2.dproj
@@ -0,0 +1,908 @@
+
+
+ {ADD79223-C491-48D5-85DE-CF17F12D6089}
+ 19.1
+ VCL
+ True
+ Debug
+ Win32
+ 1
+ Application
+ Project2.dpr
+
+
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_2
+ true
+ true
+
+
+ .\$(Platform)\$(Config)
+ .\$(Platform)\$(Config)
+ false
+ false
+ false
+ false
+ false
+ System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)
+ $(BDS)\bin\delphi_PROJECTICON.ico
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
+ Project2
+
+
+ DBXSqliteDriver;RESTComponents;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;DataSnapFireDAC;tethering;svnui;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;FireDACIBDriver;fmx;fmxdae;vcledge;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;emsclient;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;bindcompdbx;IndyIPCommon;vcl;DBXSybaseASEDriver;IndyIPServer;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;FireDACInfxDriver;fmxFireDAC;vclimg;TeeDB;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;soaprtl;DbxCommonDriver;ibxpress;Tee;DataSnapServer;xmlrtl;DataSnapNativeClient;ibxbindings;fmxobj;FireDACDSDriver;soapmidas;rtl;emsserverresource;DbxClientDriver;vclwinx;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;dsnapxml;dbrtl;FireDACMongoDBDriver;IndyProtocols;inetdbxpress;fmxase;$(DCC_UsePackage)
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
+ Debug
+ true
+ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
+ 1033
+ $(BDS)\bin\default_app.manifest
+
+
+ DBXSqliteDriver;RESTComponents;DataSnapServerMidas;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;DataSnapFireDAC;tethering;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;FireDACIBDriver;fmx;fmxdae;vcledge;vclib;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;DataSnapCommon;emsclient;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;bindcompdbx;IndyIPCommon;vcl;DBXSybaseASEDriver;IndyIPServer;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;FireDACInfxDriver;fmxFireDAC;vclimg;TeeDB;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;soaprtl;DbxCommonDriver;ibxpress;Tee;DataSnapServer;xmlrtl;DataSnapNativeClient;ibxbindings;fmxobj;FireDACDSDriver;soapmidas;rtl;emsserverresource;DbxClientDriver;vclwinx;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;dsnapxml;dbrtl;FireDACMongoDBDriver;IndyProtocols;inetdbxpress;fmxase;$(DCC_UsePackage)
+
+
+ DEBUG;$(DCC_Define)
+ true
+ false
+ true
+ true
+ true
+
+
+ false
+ true
+ PerMonitorV2
+
+
+ false
+ RELEASE;$(DCC_Define)
+ 0
+ 0
+
+
+ true
+ PerMonitorV2
+
+
+
+ MainSource
+
+
+
+ dfm
+
+
+
+ dfm
+
+
+ Cfg_2
+ Base
+
+
+ Base
+
+
+ Cfg_1
+ Base
+
+
+
+ Delphi.Personality.12
+ Application
+
+
+
+ Project2.dpr
+
+
+
+
+
+ Project2.exe
+ true
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ classes
+ 1
+
+
+ classes
+ 1
+
+
+
+
+ res\xml
+ 1
+
+
+ res\xml
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ library\lib\armeabi
+ 1
+
+
+ library\lib\armeabi
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ library\lib\mips
+ 1
+
+
+ library\lib\mips
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\values-v21
+ 1
+
+
+ res\values-v21
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ res\drawable
+ 1
+
+
+ res\drawable
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-ldpi
+ 1
+
+
+ res\drawable-ldpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-mdpi
+ 1
+
+
+ res\drawable-mdpi
+ 1
+
+
+
+
+ res\drawable-hdpi
+ 1
+
+
+ res\drawable-hdpi
+ 1
+
+
+
+
+ res\drawable-xhdpi
+ 1
+
+
+ res\drawable-xhdpi
+ 1
+
+
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+ res\drawable-xxhdpi
+ 1
+
+
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+ res\drawable-xxxhdpi
+ 1
+
+
+
+
+ res\drawable-small
+ 1
+
+
+ res\drawable-small
+ 1
+
+
+
+
+ res\drawable-normal
+ 1
+
+
+ res\drawable-normal
+ 1
+
+
+
+
+ res\drawable-large
+ 1
+
+
+ res\drawable-large
+ 1
+
+
+
+
+ res\drawable-xlarge
+ 1
+
+
+ res\drawable-xlarge
+ 1
+
+
+
+
+ res\values
+ 1
+
+
+ res\values
+ 1
+
+
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ Contents\MacOS
+ 1
+ .framework
+
+
+ 0
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .dll;.bpl
+
+
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ Contents\MacOS
+ 1
+ .dylib
+
+
+ 0
+ .bpl
+
+
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ Contents\Resources\StartUp\
+ 0
+
+
+ 0
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+ ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+ ..\$(PROJECTNAME).launchscreen
+ 64
+
+
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+
+
+ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF
+ 1
+
+
+
+
+ ..\
+ 1
+
+
+ ..\
+ 1
+
+
+
+
+ Contents
+ 1
+
+
+ Contents
+ 1
+
+
+
+
+ Contents\Resources
+ 1
+
+
+ Contents\Resources
+ 1
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+ library\lib\arm64-v8a
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ Contents\MacOS
+ 1
+
+
+ 0
+
+
+
+
+ library\lib\armeabi-v7a
+ 1
+
+
+
+
+ 1
+
+
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+ Assets
+ 1
+
+
+ Assets
+ 1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ True
+ False
+
+
+ 12
+
+
+
+
+
diff --git a/experiments/22/Project2.dproj.local b/experiments/22/Project2.dproj.local
new file mode 100644
index 00000000..9f842581
--- /dev/null
+++ b/experiments/22/Project2.dproj.local
@@ -0,0 +1,14 @@
+
+
+
+ 1899.12.30 00:00:00.000.732,C:\Users\Andrey Savich\Documents\Embarcadero\Studio\Projects\Project2.dproj=C:\Users\Andrey Savich\Documents\Embarcadero\Studio\Projects\Project2.dproj
+ 1899.12.30 00:00:00.000.438,=C:\Users\Andrey Savich\Documents\Embarcadero\Studio\Projects\Unit2.pas
+ 1899.12.30 00:00:00.000.699,=C:\Users\Andrey Savich\Documents\Embarcadero\Studio\Projects\Unit1.pas
+
+
+
+
+
+
+
+
diff --git a/experiments/22/Project2.identcache b/experiments/22/Project2.identcache
new file mode 100644
index 00000000..4bc495dd
Binary files /dev/null and b/experiments/22/Project2.identcache differ
diff --git a/experiments/22/Project2.res b/experiments/22/Project2.res
new file mode 100644
index 00000000..f5a94a16
Binary files /dev/null and b/experiments/22/Project2.res differ
diff --git a/experiments/22/ProjectGroup1_prjgroup.tvsconfig b/experiments/22/ProjectGroup1_prjgroup.tvsconfig
new file mode 100644
index 00000000..c8f28340
--- /dev/null
+++ b/experiments/22/ProjectGroup1_prjgroup.tvsconfig
@@ -0,0 +1,2 @@
+
+
\ No newline at end of file
diff --git a/experiments/22/Unit1.dfm b/experiments/22/Unit1.dfm
new file mode 100644
index 00000000..734fb1a7
--- /dev/null
+++ b/experiments/22/Unit1.dfm
@@ -0,0 +1,57 @@
+object Form1: TForm1
+ Left = 0
+ Top = 0
+ BorderIcons = [biMinimize, biMaximize]
+ BorderStyle = bsToolWindow
+ Caption = 'Test form App'
+ ClientHeight = 156
+ ClientWidth = 481
+ Color = 3487029
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Label1: TLabel
+ Left = 24
+ Top = 32
+ Width = 417
+ Height = 26
+ Caption = 'Welcome to delphi forms how may we help ya'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWhite
+ Font.Height = -20
+ Font.Name = 'Trebuchet MS'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Button1: TButton
+ Left = 24
+ Top = 72
+ Width = 177
+ Height = 49
+ BiDiMode = bdRightToLeft
+ Caption = 'Tell to fuck off'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWhite
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentBiDiMode = False
+ ParentFont = False
+ TabOrder = 0
+ OnClick = Button1Click
+ end
+ object Button2: TButton
+ Left = 336
+ Top = 128
+ Width = 137
+ Height = 20
+ Caption = 'Calculate math for me'
+ TabOrder = 1
+ OnClick = Button2Click
+ end
+end
diff --git a/experiments/22/Unit1.pas b/experiments/22/Unit1.pas
new file mode 100644
index 00000000..5ccc87cb
--- /dev/null
+++ b/experiments/22/Unit1.pas
@@ -0,0 +1,41 @@
+unit Unit1;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus;
+
+type
+ TForm1 = class(TForm)
+ Label1: TLabel;
+ Button1: TButton;
+ Button2: TButton;
+ procedure Button1Click(Sender: TObject);
+ procedure Button2Click(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+uses Unit2;
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+ Close();
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+ Form2.Show;
+end;
+
+end.
diff --git a/experiments/22/Unit2.dfm b/experiments/22/Unit2.dfm
new file mode 100644
index 00000000..243d2f92
--- /dev/null
+++ b/experiments/22/Unit2.dfm
@@ -0,0 +1,229 @@
+object Form2: TForm2
+ Left = 0
+ Top = 0
+ Caption =
+ #1057#1095#1080#1090#1072#1077#1084' '#1082#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1080#1076#1091#1097#1080#1093' '#1087#1086#1076#1088#1103#1076' '#1087#1086#1083#1086#1078#1080#1090#1077#1083#1100#1085#1099#1093'('#1086#1090#1088#1080#1094#1072#1090#1077#1083#1100#1085#1099#1093') '#1101#1083 +
+ #1077#1084#1077#1085#1090#1086#1074
+ ClientHeight = 471
+ ClientWidth = 695
+ Color = 3487029
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Label1: TLabel
+ Left = 40
+ Top = 16
+ Width = 15
+ Height = 33
+ Caption = 'n'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWhite
+ Font.Height = -27
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label2: TLabel
+ Left = 40
+ Top = 125
+ Width = 58
+ Height = 13
+ Caption = #1042#1074#1086#1076' '#1063#1080#1089#1077#1083
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWhite
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Edit1: TEdit
+ Left = 40
+ Top = 55
+ Width = 33
+ Height = 21
+ TabOrder = 0
+ Text = 'Edit1'
+ end
+ object Edit2: TEdit
+ Left = 40
+ Top = 144
+ Width = 121
+ Height = 21
+ TabOrder = 1
+ Text = 'Edit2'
+ end
+ object Button1: TButton
+ Left = 612
+ Top = 8
+ Width = 75
+ Height = 25
+ Caption = #1057#1095#1080#1090#1072#1081
+ TabOrder = 2
+ OnClick = Button1Click
+ end
+ object Edit3: TEdit
+ Left = 566
+ Top = 39
+ Width = 121
+ Height = 21
+ TabOrder = 3
+ Text = 'Edit3'
+ end
+ object Edit4: TEdit
+ Left = 40
+ Top = 280
+ Width = 121
+ Height = 21
+ TabOrder = 4
+ Text = 'Edit4'
+ end
+ object Edit5: TEdit
+ Left = 40
+ Top = 307
+ Width = 121
+ Height = 21
+ TabOrder = 5
+ Text = 'Edit5'
+ end
+ object Edit6: TEdit
+ Left = 40
+ Top = 334
+ Width = 121
+ Height = 21
+ TabOrder = 6
+ Text = 'Edit6'
+ end
+ object Edit7: TEdit
+ Left = 40
+ Top = 361
+ Width = 121
+ Height = 21
+ TabOrder = 7
+ Text = 'Edit7'
+ end
+ object Edit8: TEdit
+ Left = 40
+ Top = 388
+ Width = 121
+ Height = 21
+ TabOrder = 8
+ Text = 'Edit8'
+ end
+ object Edit9: TEdit
+ Left = 40
+ Top = 415
+ Width = 121
+ Height = 21
+ TabOrder = 9
+ Text = 'Edit9'
+ end
+ object Edit10: TEdit
+ Left = 40
+ Top = 442
+ Width = 121
+ Height = 21
+ TabOrder = 10
+ Text = 'Edit10'
+ end
+ object Edit11: TEdit
+ Left = 40
+ Top = 171
+ Width = 121
+ Height = 21
+ TabOrder = 11
+ Text = 'Edit11'
+ end
+ object Edit12: TEdit
+ Left = 40
+ Top = 198
+ Width = 121
+ Height = 21
+ TabOrder = 12
+ Text = 'Edit12'
+ end
+ object Edit13: TEdit
+ Left = 40
+ Top = 225
+ Width = 121
+ Height = 21
+ TabOrder = 13
+ Text = 'Edit13'
+ end
+ object Edit14: TEdit
+ Left = 40
+ Top = 252
+ Width = 121
+ Height = 21
+ TabOrder = 14
+ Text = 'Edit14'
+ end
+ object Edit15: TEdit
+ Left = 167
+ Top = 144
+ Width = 121
+ Height = 21
+ TabOrder = 15
+ Text = 'Edit15'
+ end
+ object Edit16: TEdit
+ Left = 167
+ Top = 171
+ Width = 121
+ Height = 21
+ TabOrder = 16
+ Text = 'Edit16'
+ end
+ object Edit17: TEdit
+ Left = 167
+ Top = 198
+ Width = 121
+ Height = 21
+ TabOrder = 17
+ Text = 'Edit17'
+ end
+ object Edit18: TEdit
+ Left = 167
+ Top = 225
+ Width = 121
+ Height = 21
+ TabOrder = 18
+ Text = 'Edit18'
+ end
+ object Edit19: TEdit
+ Left = 167
+ Top = 252
+ Width = 121
+ Height = 21
+ TabOrder = 19
+ Text = 'Edit19'
+ end
+ object Edit20: TEdit
+ Left = 167
+ Top = 279
+ Width = 121
+ Height = 21
+ TabOrder = 20
+ Text = 'Edit20'
+ end
+ object Edit21: TEdit
+ Left = 167
+ Top = 306
+ Width = 121
+ Height = 21
+ TabOrder = 21
+ Text = 'Edit21'
+ end
+ object Edit22: TEdit
+ Left = 167
+ Top = 334
+ Width = 121
+ Height = 21
+ TabOrder = 22
+ Text = 'Edit22'
+ end
+end
diff --git a/experiments/22/Unit2.pas b/experiments/22/Unit2.pas
new file mode 100644
index 00000000..6929cf75
--- /dev/null
+++ b/experiments/22/Unit2.pas
@@ -0,0 +1,91 @@
+unit Unit2;
+
+interface
+
+uses
+ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+ Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
+
+type
+ TForm2 = class(TForm)
+ Label1: TLabel;
+ Edit1: TEdit;
+ Edit2: TEdit;
+ Label2: TLabel;
+ Button1: TButton;
+ Edit3: TEdit;
+ Edit4: TEdit;
+ Edit5: TEdit;
+ Edit6: TEdit;
+ Edit7: TEdit;
+ Edit8: TEdit;
+ Edit9: TEdit;
+ Edit10: TEdit;
+ Edit11: TEdit;
+ Edit12: TEdit;
+ Edit13: TEdit;
+ Edit14: TEdit;
+ Edit15: TEdit;
+ Edit16: TEdit;
+ Edit17: TEdit;
+ Edit18: TEdit;
+ Edit19: TEdit;
+ Edit20: TEdit;
+ Edit21: TEdit;
+ Edit22: TEdit;
+ procedure Button1Click(Sender: TObject);
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ Form2: TForm2;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm2.Button1Click(Sender: TObject);
+var A: array [0..99] of integer;
+ i,n: integer;
+ sum,s: byte;
+begin
+ n:=StrToInt(Edit1.Text);
+ for i:=0 to n-1 do
+ A[i]:=StrToInt(Edit2.Text);
+ A[i]:=StrToInt(Edit11.Text);
+ A[i]:=StrToInt(Edit12.Text);
+ A[i]:=StrToInt(Edit13.Text);
+ A[i]:=StrToInt(Edit14.Text);
+ A[i]:=StrToInt(Edit4.Text);
+ A[i]:=StrToInt(Edit5.Text);
+ A[i]:=StrToInt(Edit6.Text);
+ A[i]:=StrToInt(Edit7.Text);
+ A[i]:=StrToInt(Edit8.Text);
+ A[i]:=StrToInt(Edit9.Text);
+ A[i]:=StrToInt(Edit10.Text);
+ A[i]:=StrToInt(Edit15.Text);
+ A[i]:=StrToInt(Edit16.Text);
+ A[i]:=StrToInt(Edit17.Text);
+ A[i]:=StrToInt(Edit18.Text);
+ A[i]:=StrToInt(Edit19.Text);
+ A[i]:=StrToInt(Edit20.Text);
+ A[i]:=StrToInt(Edit21.Text);
+ A[i]:=StrToInt(Edit22.Text);
+
+ sum:=0;
+ s:=0;
+ for i:=0 to n-1 do begin
+ if A[i]>0 then
+ begin
+ s:=s+1;
+ if s>sum then sum:=s;
+ end
+ else s:=0;
+ end;
+ Edit3.Text:=(IntToStr(sum)); {È êàêîãî õóÿ îíî íå ðîáèò ñ ìèíóñîâûìè ÷èñëàìè? âûâîäÿ áëÿäñêèé íîëü- â êîíñîëüíîé âåðñèè íîðìàëüíî ñ ýòèì áûëî}
+end;
+
+end.