From 7603172bac622fe402e7d94953f9c513fb2f2885 Mon Sep 17 00:00:00 2001
From: softland <softlandia@gmail.com>
Date: Fri, 19 Oct 2018 00:32:20 +0300
Subject: [PATCH] 0.0.3

---
 Win32/Debug/main.dcu        | Bin 0 -> 10261 bytes
 __history/main.dfm.~1~      |  16 ++++++++++++++++
 __history/main.dfm.~2~      |  25 +++++++++++++++++++++++++
 __history/main.dfm.~3~      |  34 ++++++++++++++++++++++++++++++++++
 __history/main.dfm.~4~      |  35 +++++++++++++++++++++++++++++++++++
 __history/main.dfm.~5~      |  35 +++++++++++++++++++++++++++++++++++
 __history/main.dfm.~6~      |  35 +++++++++++++++++++++++++++++++++++
 __history/main.dfm.~7~      |  35 +++++++++++++++++++++++++++++++++++
 __history/metaclass.dpr.~1~ |  14 ++++++++++++++
 main.dfm                    |   6 +++---
 metaclass.dpr               |   4 ++--
 metaclass.dproj             |   2 +-
 12 files changed, 235 insertions(+), 6 deletions(-)
 create mode 100644 Win32/Debug/main.dcu
 create mode 100644 __history/main.dfm.~1~
 create mode 100644 __history/main.dfm.~2~
 create mode 100644 __history/main.dfm.~3~
 create mode 100644 __history/main.dfm.~4~
 create mode 100644 __history/main.dfm.~5~
 create mode 100644 __history/main.dfm.~6~
 create mode 100644 __history/main.dfm.~7~
 create mode 100644 __history/metaclass.dpr.~1~

diff --git a/Win32/Debug/main.dcu b/Win32/Debug/main.dcu
new file mode 100644
index 0000000000000000000000000000000000000000..5dad59d15c22da5b6fcf6196c084d646a2c00b16
GIT binary patch
literal 10261
zcmeHNdvsJqny;>|?i3+}PIwsDfSnj(%f#LQ!m0<EygC>p5b^+VahA^Q+nvTvcj)dQ
z;m8c4&LPGJxT7m;^f>P74(ht-h$F5j4`IazgD%W6jyuXYI^sBUqRY<m?)`mr?@js=
zoOO2h%-KKop4_Us-@Cr=tFNk(G&-4goR6_5oGp!v9xghA(fGMBnbZT!Jv%As%O47N
zJ`MujWqfu8Q-8xjA9A<!q|$mP*utLH+E_4^x>k>M>B*X4O21WH_h>k$A)eMFdh*c&
zscqq$)`jgWbS=HE@S&>6C9Q-?hJ%_OGQj@oFaWiQcq*Oj*3!{Le2VtbO&21p(Zh+P
zUZ)QdmJ{Km;Sv|<H#b0BFs|vB5=p*kfj_XaI~Ys7Jbmkt$QTPYS5IFXOm);ILi!Fu
zcq~L~q9vV-#v`u~bb<wK35NCBU@R6`t?6B4?W;DXx@f8^nASRW6Lh@ARHui7-7)Bi
zhhlni58=jIxca27Th{I+%xDXvW}4{PN5BIA`Hl`9@qHP|uc~f`JAzs|kW40$$Ch{P
z9Wr&8V|S9I!I=zm=Pp7I`X$SWuMtA}O}n&DR^JzPLo0k!@p9gq;Zbezs0Q~L?jle`
zR<+@)HkMrW<WqBCr7`pRXdIsFAuGe8rYEg`R{mQt6rI|n9!%?xld?R^2jrb60MSA@
zNV<l2G>xp&LitM|sw?V87fRfmQn1k`tWi&;f)U*W8ma0>*OrdP2pEw_K^5HATR#3#
zIA7%tlGVuJgOxvT(L$q5w#C6@G#F1Cvhq!!%6KI|GOo2Y(b<)V>+!U|HW**np3;-6
z^etT@u8I_8p-gzPIuz1FPZIW`EG#n6B1k<&$O&1<wyqGI(yT|K@OaNQLT4*ol8mO|
zc#v!-RB;yPuuT2ne8q<BYPIM-BxGT0lb%dL6V0bOm5N5<Kdij?>9A}yVw-As^@Ua~
zl($%m`R68sT^&))aE*ds4X2X{!^ao5A{r*ZZ|G@B_r&x-Oz(v7)IZG|{Uzp^MO2;Y
ziEAxdhaT#V>8}%dtQ}3(v?ksp%thH4_`SM2ooI=!(GL=G+<C}mJq6S|gqmbSsgi>_
zr-uxZe<qS58;QzDBYA&9*h_5K?o>L_SsjC2SipKRZLFyGh|o6w+9ATGL@G*E<7Y%P
zK3kf(+Ly#b9}up@hD&HSHS1k5RLwdJYhzLP@E1h(C)s33Bm=cD8I45a14Lk(G7%U-
z3aq9Wr@kbT;`3zG>8qlePK5gE^uG~>EfR2+o^I&WM_dPtZJsS!FsAq@3+fZex~^y*
z5fx@DXi>~#hcoNxreG3A)daPhBFRK|JaiEe*<220gQzai-5%3xy2D{TsfUV)(3TV}
z9f_OGsZJ#1H?mDI^3g;az6!<+xs*l4#9(u*!O+^!L@TX3HJJ!(!E1=G3dW+eQm-f6
zm~3qb9Fi>kEkf9G6O*Z-X{LgNvN_367$P_=X|=BWh@N3&ZFiC!1@|udq$&neEefN8
zwkEo@j>cddMKHO72nq)YAi`Mg-zNB&Y<M6ZghxZS6QU#=Q6EbL)2Q{7c`c|ms{DPI
z$c9WaH#kZFP}awSk<^1kF?LW8CTp$IhlXM5lEFwLc94F;3|R#p)2fFFfwP9`2_O~(
zJM~9~395<KMM=>22}5Pn@EquE)#ounj~_(CD`Y`KCv6)~5su2U!Ae_B6md1&_A4N@
z&<Lu3$nQ=neqmQD4L^A1o_k57TIvMwtHNN4Nj<i1VVNCmtW+%bres2UoY2@YhPaJT
zBHqEy)ZY<y@^GxN`x)iw2SkIN;d}{Du!T^F)es8dLfM029NN-R%$X=`#+%j1ko`2F
zFSZN7Zj|WBHsJ4x2=UI+k}xLm4}`IqR+lj4Zyhc<(c017*<RC~PAB3E66t8T=Z8d8
zYL{$iZc3t5={Gm)E4y(je4gl#y4e;eVRo`@L}r^Tl|@xjn{iBik<f_$kQAV;HL#tK
zSWZL8`H3L*^j8ROi=Q$*s$u2eh&W7S6IBFb4!ef2QaWPKio~(N_Yl?=dR1hRU_(XV
zHKMWkw^<K{)S+PSFyW@JRC4Yk?4<13V4)Z###%_P50gDe@&=)7el)6<u~JfR5_)2`
z@Wp0{Y}Vsgyl)d8YkkO-=34kMA#91HwrA9pgTq8F>eiDzgExvpgttY<NWjsz0&a7V
z0ml*7LnxaSW@Z);!j=Y><C~fq3JHn&F=TsfERoWcHDd{9o45V+KaTLW>A|D*39UPI
z31Q9;hr;L~vyPMziESpd(V^l6W95XhrQi~rTx&a`vCwsT&!xj;54#;)HjHH04Ph#g
zOlfV=u)$NIM+RGUvO2T^-WXa&m5XvVN6IfuN~bj?!mRGoiS{eR4$?Nn7h|c<AkxVf
z6kC^=iz3jS)UPBO-&fM4O|pgR`j)zisNH^5#CNZc9o0f3sl3-kgRw*;>vY?a4%McU
z>U0|(f$gEQJyDZb-9Kvf&5>MO&dl%c9G$Q~oM&c+0)Bb?SGc{XEn{vn8d6)v$X4S#
zO@L=^c<A0po<9q+$=`Dn88SrTM~2kuu~_QkHCr#$W~!_D?Tr1!i}(DPYcq##<6>rx
zc{f>yjS0^@ZKkxYFzXbAT?>$P88SgNnl>}*b~PI!5m;QW1XyND>po>tSAp25TqzSW
z2mDU>Op&|PBu&gUFi%>JGhvqlmScL?1YHJ@OYNs7;5o2aJEsX+4v=-_FhSqawDJ*t
zy1tQ403Ell_-G=VDlO0k#wKsQYg2JK?yfC~*eX2<B01~n_+&OU$Ao}pO8bFgudmPq
z_#=861qau4n%}(jA3e`<`CGzUB3krV*v*)imAG*2)K_CHnAY!jnCC#OH{%;+iAa$$
za9?L|A1Te|2FDhYV``qsp~41JE<K(bD=Qy`Y>XyT=|P*Dw_bg$oPjzE4C=)D%l^t&
zo{!1tS|T1AB+tz}SUQzWg*jPplKzc<JXk?43nx1pu>--v+}ZKR{p2zeL{uFcTPnRd
zCg2mKz=16-mF<7V{WI$so6dZrE&uvcILpV=5L0{b`<JoT`6b*_T5LEf%vjNh5{HIf
z43s#M)PGvy#4))XBM+Q#SUI6M<GUz(T6Xu}e`e*MvMPR;@C{1!oiN?6BzxUPtdw}I
zf5b7K?>MFe`!Wb=mcRT~P#z$eA^u=#woI=h3K4m~gIy;r_Axg94e~Fz?qG-FuNbtc
z;zSm|%Sq`_k?|GT`E7aCNJ400*+PEb#0s4Gjsi>a7%N=r6l!c{h{A#mkN=uEINwlO
zIcQqti4u2<j&!96xIgte{OCOcm}iNSR+;fl7?hUo>C%zqI0e;q1mh7(;e{mgj^8Kq
zh&NZcHrWbp2rnD(x(xt6ywFIV6(2(5G)rTi`b|)DjXE7c3H?Th<@1t_rA&K-`&5Ag
zSUnzIA_;tME|ZKEALUEh<tENp>1~|(?&j<q^G^9@5o3P0k&R&b^e}fI75g2HN?~zk
zn!s@@#W=g-+-Ts}vBMC+)Ue;N$RyH~0`E#^eOPW*3fxTI&&4?=r+kz7bF<<H?8Dsg
zR==Z7@p?0UmyunZ@h#kOq~EdBL`=&`8npz<XBo=doHQ>}`Hd!>Rz*NIw^BaKQDKxR
zzGKe%X1QIN;$_RXS*BFD!c-j~@k-h62r3D_OtyhL!E=l|?&^2w7S=Ej2!4_~9_)8S
zO@uM)iZ7h?t#X&8YR8}|IF(8ZbX^Tyor<Yqn63gR=~`)Fhjh7|q^sLR7`iG0BkSkM
z{m?c2wn7#hy_f5bwda0W4kuUS4rL(AWn-&H_d9wNb7iJNL{Q}cEm}0Xf5cj6v16@?
z@#oUsVXOk+QDqz(`W?4gSkI75BddvKnxeVGq|xdqx2CI@jLu{--+A;}6%Mfi70iw7
zWvF1PzeyX!WNiXBY4h3j%*SU7>MQshQ3sEqR*pUE92&&}<<~2*Lk(@2^jL7L6oy>>
zZ#)i`02gP+Gblb*fo@QO%!Q%Sj^#0dsnVnNGgwKFgE=&F$eAN)4ke>{jg)}{7|R(H
zYgr2!^mhUh04^pn(5+S)ADj^3=&>fcTzxUN3cYEE3Hd`i&b|$nH}L*Q^$yrzZR%Gk
zVOcBIn7d^Bf^#<_N%Ned7>)e3cpP>f(;1ekukr<BnT)meIXgyjRYQ&#W83x#bzz4s
z2d0P6c<#k}g&O@&8gddIGQub#^vPL2+Ie^ntDcB#M~y#%J8k+d=+mJ^0wdK!vsjLI
zjrwA2Bl`bU7n#M+@X;fXPCoh<)sv6x=c_-0lk5ur0584lz}{~z>N@oA8@Y{{{QvWR
z$pf4<B02|Ebh5U>Lja(>(*DPpLJ~<9fe9r#lZvwfHL<L%@gfBnwi|M`1UlQXanPxX
z`lZ-F%+o(0=5w{`v&1PoP{YqFsj65yn0e-;np&kehw1&={Itxm_m~!0S)a__dl+l$
z`~0@o23ltPtoO!&-p1p-Z6|sIXJ+hd>sSo#P^L1}>%F^epf4alC2RTu15JI6$NSn&
z^aai+$c&vgEL|Gv^>o|_^xc601>B=5_OA#2yzk>1cMC&@DH?plUAIy629EdP=i?jq
zC>u!czQ8GVXW-O^!08z~?+l#oYdbSz|DBDet9$3K7v}<})~!7?vipOjOKlvdnWCNX
z?wxI?|Kl^&^);U9t=j~S)9cor&gS^9Y&hQ1+jbmwkdf;sRr=Pwk4W|gPV|kU>Ayry
z?88@4rlraRb!CBQzIzzkDmXT=OvVLNm_=EVr5OGB)q>+d1c=Tw96jPJgfBA=pZB(X
zZd32c+*gJY)EhtqY$o*~CNi_A2&O&ffJMsfrbj)QW-()@;z6{CkMeuQe()GUq<9_&
zd%+NPJG3y1AQKq4ZSBCw?pHx(a9~<$Hf+yrmy@-QJ)Jtz3%3YyH}{H7+=JeDOQk53
zVyqP7r6`gjPl|jgCQ4B(g-43XQh14OYT;o%RaEn0A;+tqVun=&LB&8y;hw|p$LIZ!
zy%}=vH{S}o>~bl5mh7p9Y$?j{V{!NjALgY(dLRUf$_lsOinN(eX1JxGp9r~9<ksOz
z!d+#OZ819BBgC`33<P;>8^+sU#C8yFQ?Ca-iT@gw90SowUZWVc@#%%f3|qDvww#15
z+hGf?Dd@|T_|3eW?ZEdAsN4na9qRR<|C%ZboKm=)b&6pJzoM|fsiwcnQ0a2|Aa*jt
zbp?I75>G1k;(ISt?uWX)>h+-ah$$Ek#&WR~Bk(;6FQR!$3d7^ar3g#0Q;Hj;2uX2B
zil0dFb1CLau|SF@DSjYDvlO37(JIAnr5KRndMVzM;sGgENYNohOo|7km;|{cc>h|8
z)lwXk;ub0TrFd70N2K^ribth*Op3pi;t45!Da9|Ocv6a|rT9#Wb}62b;&)PPmEs;L
zHcD}y6yKAg0ODSdA}+;CQoJn1D^hexk(6S$6t78<mSU9@Yos_L#kZwcC&hXxZkOV_
zQf!doPATq^;*1pIAY}sH&!u=#ihWYNF2x&Cyd}i}Dc+aj6Dhuw;)E3Eq;P=F#q;32
zdNGYxAiv8+2|_T<=~oWji=3YcngGu$EOAbU!;3|3dEqqY9Aj9@aJy4O3d8f|xNc7u
zhk2>1uFTbdd_BxPuIYKMD<<NSTE$NC5OX<0tiV~tN}QBuxzJXOuu^{yo90~Sx^jW*
zFt5Q|>bly)8k|DB!*lUZOX%_(eB*+$qd7cx-pX;jo?q?0mKX7fGM^XnvFD~@<w}g?
zxmhAlNW!@D`9xlZDV67~!ncoK0h2sDm-~6mDYwi+#*E*@`FrfXykf@2OD}$<;r8KZ
z>8@a`%3aCWe2?dHCwtQUm$y7h8yv@y=WHx~ryzJy9IS#B6>s9g&5GYTfHlfl>BH2P
zZRXs~%6x~m&{z3pqA1^YXft;U<~xA(%9$U_h_mV2ImhoRj*-AwtG9F1;aMl?<I45h
zInHrcBJ(+$vx}&z3Y<XH^zS078W(-kZQMmvbqE4y^Y#<f{QZPpP(tXYC-xJ%X&QYr
zzkt=kS@YXO+x}B(*}qa7KdRb~Rr?zS|AN}p|4!|ivkKyHVto4uYS}1i?;EGa6R7Q<
zMC~I}6y!2$pP0t)5oeuG?q1gAKI?q?ndfFI+*Q=Ra1FIDR#W>@fZCU*@!9;WbLX;s
zXm{sww6Em~wC`TUThSd_)=X^!(H{9;*<tSWN)M`&w+L67lice;=W?p9z^Q;G)Oq+c
zrx)Sm4NgQBy=tG$b@}Pv9mF<|+mAnTtC7o(zvu_WPd&olo=S<$=+iOuW1p+MoBYY(
zBg7eDYe$_&KWn8EMHz!w7}XedrE^h^(XY;B&l3EWO4MTX>yJ56F)?_l8I=<K?k}9E
zXBeDnMIA%$;(?J^Mi~9ZIgh<f5j*RY>>X=>Y$M3)SV9;~5VVdkm?UU1VNikrQUh07
gpb&S?F2lOUV#4SeaR<jD!f27mXOtgHg@*<I6NRtuLI3~&

literal 0
HcmV?d00001

diff --git a/__history/main.dfm.~1~ b/__history/main.dfm.~1~
new file mode 100644
index 0000000..0ebf8e1
--- /dev/null
+++ b/__history/main.dfm.~1~
@@ -0,0 +1,16 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 281
+  ClientWidth = 418
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+end
diff --git a/__history/main.dfm.~2~ b/__history/main.dfm.~2~
new file mode 100644
index 0000000..47cc310
--- /dev/null
+++ b/__history/main.dfm.~2~
@@ -0,0 +1,25 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 281
+  ClientWidth = 418
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ComboBox1: TComboBox
+    Left = 8
+    Top = 8
+    Width = 145
+    Height = 21
+    TabOrder = 0
+    Text = 'cbSelector'
+  end
+end
diff --git a/__history/main.dfm.~3~ b/__history/main.dfm.~3~
new file mode 100644
index 0000000..328cd27
--- /dev/null
+++ b/__history/main.dfm.~3~
@@ -0,0 +1,34 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 360
+  ClientWidth = 645
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object typeSelect: TComboBox
+    Left = 8
+    Top = 8
+    Width = 145
+    Height = 21
+    TabOrder = 0
+    Text = 'typeSelect'
+  end
+  object StringGrid1: TStringGrid
+    Left = 8
+    Top = 40
+    Width = 629
+    Height = 312
+    ColCount = 11
+    RowCount = 11
+    TabOrder = 1
+  end
+end
diff --git a/__history/main.dfm.~4~ b/__history/main.dfm.~4~
new file mode 100644
index 0000000..1e67599
--- /dev/null
+++ b/__history/main.dfm.~4~
@@ -0,0 +1,35 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 360
+  ClientWidth = 645
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object typeSelect: TComboBox
+    Left = 8
+    Top = 8
+    Width = 145
+    Height = 21
+    TabOrder = 0
+    Text = 'typeSelect'
+    OnChange = typeSelectChange
+  end
+  object StringGrid1: TStringGrid
+    Left = 8
+    Top = 40
+    Width = 629
+    Height = 312
+    ColCount = 11
+    RowCount = 11
+    TabOrder = 1
+  end
+end
diff --git a/__history/main.dfm.~5~ b/__history/main.dfm.~5~
new file mode 100644
index 0000000..9a7e93f
--- /dev/null
+++ b/__history/main.dfm.~5~
@@ -0,0 +1,35 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 360
+  ClientWidth = 645
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object typeSelect: TComboBox
+    Left = 8
+    Top = 8
+    Width = 145
+    Height = 21
+    TabOrder = 0
+    Text = 'typeSelect'
+    OnChange = typeSelectChange
+  end
+  object grid: TStringGrid
+    Left = 8
+    Top = 40
+    Width = 629
+    Height = 312
+    ColCount = 11
+    RowCount = 11
+    TabOrder = 1
+  end
+end
diff --git a/__history/main.dfm.~6~ b/__history/main.dfm.~6~
new file mode 100644
index 0000000..1a98af2
--- /dev/null
+++ b/__history/main.dfm.~6~
@@ -0,0 +1,35 @@
+object frmMain: TfrmMain
+  Left = 0
+  Top = 0
+  Caption = 'frmMain'
+  ClientHeight = 360
+  ClientWidth = 645
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object typeSelect: TComboBox
+    Left = 8
+    Top = 8
+    Width = 145
+    Height = 21
+    TabOrder = 0
+    Text = 'typeSelect'
+    OnChange = typeSelectChange
+  end
+  object grid: TStringGrid
+    Left = 8
+    Top = 40
+    Width = 629
+    Height = 312
+    ColCount = 11
+    RowCount = 11
+    TabOrder = 1
+  end
+end
diff --git a/__history/main.dfm.~7~ b/__history/main.dfm.~7~
new file mode 100644
index 0000000..02c73a2
--- /dev/null
+++ b/__history/main.dfm.~7~
@@ -0,0 +1,35 @@
+object frmMain: TfrmMain
+  Left = 0
+  Top = 0
+  Caption = 'frmMain'
+  ClientHeight = 360
+  ClientWidth = 645
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object typeSelect: TComboBox
+    Left = 8
+    Top = 8
+    Width = 145
+    Height = 21
+    TabOrder = 0
+    Text = 'typeSelect'
+    OnChange = typeSelectChange
+  end
+  object grid: TStringGrid
+    Left = 8
+    Top = 40
+    Width = 629
+    Height = 312
+    ColCount = 11
+    RowCount = 2
+    TabOrder = 1
+  end
+end
diff --git a/__history/metaclass.dpr.~1~ b/__history/metaclass.dpr.~1~
new file mode 100644
index 0000000..663015a
--- /dev/null
+++ b/__history/metaclass.dpr.~1~
@@ -0,0 +1,14 @@
+program metaclass;
+
+uses
+  Vcl.Forms,
+  main in 'main.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
diff --git a/main.dfm b/main.dfm
index 1a98af2..44961fe 100644
--- a/main.dfm
+++ b/main.dfm
@@ -2,7 +2,7 @@ object frmMain: TfrmMain
   Left = 0
   Top = 0
   Caption = 'frmMain'
-  ClientHeight = 360
+  ClientHeight = 144
   ClientWidth = 645
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -27,9 +27,9 @@ object frmMain: TfrmMain
     Left = 8
     Top = 40
     Width = 629
-    Height = 312
+    Height = 97
     ColCount = 11
-    RowCount = 11
+    RowCount = 2
     TabOrder = 1
   end
 end
diff --git a/metaclass.dpr b/metaclass.dpr
index 663015a..dc7b349 100644
--- a/metaclass.dpr
+++ b/metaclass.dpr
@@ -2,13 +2,13 @@ program metaclass;
 
 uses
   Vcl.Forms,
-  main in 'main.pas' {Form1};
+  main in 'main.pas' {frmMain};
 
 {$R *.res}
 
 begin
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
-  Application.CreateForm(TForm1, Form1);
+  Application.CreateForm(TfrmMain, frmMain);
   Application.Run;
 end.
diff --git a/metaclass.dproj b/metaclass.dproj
index 3574d7a..53975bf 100644
--- a/metaclass.dproj
+++ b/metaclass.dproj
@@ -92,7 +92,7 @@
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
         <DCCReference Include="main.pas">
-            <Form>Form1</Form>
+            <Form>frmMain</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <BuildConfiguration Include="Release">