ئhGvfddAXg .TStringList<*gTCollection.ClearUgTCollection.AddUgTStringList.SetSorted(0bcdSysUtilsZkg CompareTexta!gTrim~ gIntToStrJ 7g FloatToStrFǜf TFloatFormat5Xg ffGeneralAgDecimalSeparatorugIntToStrȍTgFormatW0g StrToIntDefѵg StrToFloatmg StrToInt64Def!(cdSysInitZkcdSystemZkfTObject.fInteger|ofBooleanNcfString8f AnsiString8g.TObject;ugTObject.SafeCallException݋RgTObject.AfterConstruction݋RgTObject.BeforeDestruction݋RgTObject.Dispatch݋RgTObject.DefaultHandler݋RgTObject.NewInstance݋RgTObject.FreeInstance݋RgTObject.Destroy݋RgSizeOffCardinalݳgTObject.ClassInfo݋RfPointerŞ(XgGetMemg@GetMemX,Tdg @ClassCreateX,Tdg@AfterConstructionX,TdgFreeMemg@FreeMemX,Tdg@BeforeDestructionX,Tdg @ClassDestroyX,TdgTrue1ogExitgFalse1og@LStrFromString|g @LStrArrayClrX,Tdg@HandleFinallyX,Tdg@LStrClrgDecgMove[Sg @LStrCatNX,TdgLengthg@LStrLen?gPosg@LStrPosX,TdgCopyg @LStrCopyX,TdgMaxInt%g@LStrAsgX,Tdg @LStrCat3X,Tdg@HandleAnyExceptionX,Tdg @DoneExceptX,TdfChargQg @LStrFromCharnwg @VarToLStr kg@VarClrX,Tdg @LStrLAsgX,Tdg@LStrCatX,Tdg@IsClassX,TdgTObject.ClassName݋RgUpCaseQgDeleteg @LStrDeleteX,Tdg TObject.Free݋RfLongint|og @VarFromLStrjgIncludegTObject.Create݋Rg @RaiseAgainX,TdgAssignedceStrUtilsXg ReplaceStr,g WordCount>z=g ExtractWord!ceConstsZkceWindowsZkc&.TPropInfoList߂.* TPropInfoLista0* TReadStrEventcL2*TWriteStrEvent\?54*TEraseSectEventE5vC6&.TPropsStorageC8* TPropsStorage+:'sPropNameDelimiter 8$( .3f<%sCount $Count%sItem $Item%d%sNull $(null)* TCardinalSet>( GetPropType !PropInfo Resultc(TPropInfoList.CreateU@!Self0!.fB!AObject!Filter c(TPropInfoList.DestroyVP@!Self0!.Bc(TPropInfoList.ContainsW !Selff0!P Result  If .Dc(TPropInfoList.FindX !Self0 !ANameb$ Result I .fDc(TPropInfoList.DeleteY\@!Self0!Indexc(TPropInfoList.GetT !Self0!Index Resultc(TPropInfoList.IntersectZh@!Self0!List0 Ic(CreateStoredItemwWx$!CompName$!PropName$#Result$ c(ParseStoredItem¸ !Item$ "CompNamef$"PropNamef$ Result  Ic(ReplaceComponentName$!Item$!CompName$ #Result$ ACompNamef$ APropNamef$c(UpdateStoredList1@! AComponentf! AStoredList!FromFormf I Componentf CompNamef$ PropNamef$c(FindGlobalComponent!Name$ Result I c(TPropsStorage.GetItemNameO2 $!Self:! APropName$#Result$ c(TPropsStorage.LoadAnyPropertyO1 @!Self:!PropInfo Sf$ Deff$c(TPropsStorage.StoreAnyPropertyO5@!Self:!PropInfo Sf$c("TPropsStorage.StoreIntegerPropertyO< $!Self:!PropInfo#Result$ c(TPropsStorage.StoreCharPropertyO@ $!Self:!PropInfo#Result$ c(TPropsStorage.StoreEnumPropertyON $!Self:!PropInfo#Result$ cj' PrecisionsFFk( TPropsStorage.StoreFloatPropertyO $!Self:!PropInfo#Result$ c(!TPropsStorage.StoreStringPropertyO2 $!Self:!PropInfo#Result$ c("TPropsStorage.StoreLStringPropertyO2 $!Self:!PropInfo#Result$ c( TPropsStorage.StoreWCharPropertyO@ $!Self:!PropInfo#Result$ c("TPropsStorage.StoreVariantPropertyO $!Self:!PropInfo#Result$ c( TPropsStorage.StoreInt64PropertyO@ $!Self:!PropInfo#Result$ c(TPropsStorage.StoreSetPropertyO $!Self: !PropInfo#Result$ TypeInfof W& Ic("TPropsStorage.StoreStringsPropertyO $!Self:!PropInfo#Result$ Listf I SectNamef$c($TPropsStorage.StoreComponentPropertyOq $!Self:!PropInfo#Result$ Comp RootNamef$cj(StoreObjectPropsQ@!Objf!APrefix$!ASection$ I Propsf0ck( TPropsStorage.StoreClassPropertyOq $!Selff:!PropInfof#Result$ Saverf: I Objfc(!TPropsStorage.LoadIntegerPropertyOD@!Self:!S$!PropInfo c(TPropsStorage.LoadCharPropertyO@!Self:!S$!PropInfoc(TPropsStorage.LoadEnumPropertyOY@!Selff:!Sb$!PropInfof I EnumType .Dc(TPropsStorage.LoadFloatPropertyOA@!Self:!S$!PropInfo c(TPropsStorage.LoadInt64PropertyOH@!Self:!S$!PropInfo c(!TPropsStorage.LoadLStringPropertyO@!Self:!S$!PropInfoc(TPropsStorage.LoadWCharPropertyO@!Self:!S$!PropInfoc(!TPropsStorage.LoadVariantPropertyO@!Self:!S$!PropInfo c( TPropsStorage.LoadStringPropertyO@!Self:!S$!PropInfoc(TPropsStorage.LoadSetPropertyO!@!Selff:!Sb$!PropInfof%Delims H( TypeInfof Wf& I Nf Count EnumNamef$c(!TPropsStorage.LoadStringsPropertyO@!Self:!S$!PropInfo Listf Tempf If Cnt SectNamef$c(#TPropsStorage.LoadComponentPropertyO@!Self: !S$!PropInfof RootNamef$ Namef$ Root Pcj(LoadObjectProps@!Objf!APrefix$!ASection$ I Propsf0ck(TPropsStorage.LoadClassPropertyOq @!Selff:!S$!PropInfof Loaderf: I Cnt Recreatef Objfc(TPropsStorage.StorePropertiesO!@!Selff:!PropListf I Propsf0c(TPropsStorage.LoadPropertiesO!@!Selff:!PropListf I Propsf0c(TPropsStorage.CreateInfoListO !Self:! AComponent! StoredListf Resultf If Obj Propsf0c(TPropsStorage.FreeInfoListsOb@!Self:!Info Ic(TPropsStorage.LoadObjectsPropsO=@!Selff:! AComponent! StoredListf Infof I Idx Props0 CompNamef$ PropNamef$c(TPropsStorage.StoreObjectsPropsO=@!Selff:! AComponent! StoredListf Infof I Idx Props0 CompNamef$ PropNamef$c(TPropsStorage.CreateStorageO :!Self: Result:c(TPropsStorage.ReadStringOx $!Self:!ASectionb$!Itemb$!Default"$#Result$c(TPropsStorage.WriteStringO8@!Self:!ASection$!Item$!Value"$c(TPropsStorage.EraseSectionO$@!Self:!ASection$c( FinalizationX,Tdt! @c(RXProps!@cG0FNM I,FList,FCount,FSize-Get.Create/Destroy-Contains-Find-Delete- Intersect0Count0ItemsDJcH)Q$$j!ASection$!Item$!Default$cH U @j!ASection$!Item$!Value$cHPY @j!ASection$cG:!FNaX] ,FObject,FOwner,FPrefix$,FSection$ , FOnReadString2(,FOnWriteString48,FOnEraseSection6H-StoreIntegerProperty-StoreCharProperty-StoreEnumProperty-StoreFloatProperty-StoreStringProperty-StoreSetPropertyA-StoreClassProperty-StoreStringsProperty]-StoreComponentPropertyy-StoreLStringProperty-StoreWCharProperty-StoreVariantProperty!-LoadLStringProperty!-LoadWCharProperty1-LoadVariantPropertyA-StoreInt64Property1-LoadInt64Property-LoadIntegerProperty-LoadCharProperty-LoadEnumProperty-LoadFloatProperty-LoadStringPropertyQ-LoadSetPropertya-LoadClassProperty-LoadStringsProperty-LoadComponentProperty-CreateInfoList5- FreeInfoListsU- ReadString- WriteString- EraseSection- GetItemNamey- CreateStorage-StoreAnyProperty-LoadAnyProperty-StoreProperties -LoadProperties!-LoadObjectsPropse-StoreObjectsProps0AObjectMM0Prefix$UU0Section$YY0 OnReadString2]]0 OnWriteString4aa0OnEraseSection6eecD<J}L@AB?E@L(JNHj!IndexcD<?BN>lLL TPropInfoList TPropInfoListLRXProps TReadStrEventASectionStringItemStringDefaultStringStringTWriteStrEventASectionStringItemStringValueStringTEraseSectEventASectionStringL`z,  TPropsStorage TPropsStorageLRXProps_UQSVWtU؋}t:3ɋCCC C CK 3C3CÀ}td _^[Y]SVڋFtV ~^[USVW3ɉMME3Uhd0d EpN|KFEE@U;u+EWEPESEZuENu33ZYYdhE_^[]USVW3ɉMU3Uhvd0d wN|5F3ۋGEEUEUuGCNu33ZYYdh}E_^[]SVHH;}X\p4+ʋȋË^[Ë@SVW^K| Fu ӋKu_^[SVW؋ttSh8VǺ_^[.USVW3ۉ]]MU3Uhd0d 3ۋ׸~tEPIEUUEEPVEUUEE~E33ZYYdhE_^[].UjjSVWً3Uh]d0d MUt ˋU3ZYYdhdE_^[YY]UjjjjjjjSVWME3Uhd0d }ƋRKMӋƋ8W EMUt{}t-UEE}u ӋƋQD_MӋƋ8W$QӋƋQE}t+MӋƋ8W EMURMӋƋ8W ӋƋQD ӋƋQDKT3ZYYdhE_^[]SVWUK|%C3Vt>GKuޡK|%C3VtGKu3]_^[SVW؋Nj΋S _^[U3QQQQSVWڋ3Uhd0d 3Uhd0d [$K+!+++++MӋMӋMӋyMӋkMӋ]MӋOMӋAMӋ3MӋ%MӋE 3ZYYdk}u,t,t ,s9EPEPESUMƋ8W MVƋ8EUE$!gu/=KYˋUˋU|ˋUnˋU`ˋURˋUDˋU6ˋU(ˋUˋU ˋU3ZYYd 3ZYYdhE_^[]U3QQQQSVڋ3Uhd0d @0$<eeeeeeMӋMӋ|MӋnMӋ`MӋRMӋDMӋ6MӋ(MӋMӋ MӋ}u,t,s4UEEPESUMƋS MVƋS3ZYYdhE^[]SVW؋֋C_^[SVW؋֋CЋ_^[SVW؋֋CPZ_^[UjjSVW3Uhd0d W֋C<$EP33EPEUX3ZYYdhE_^[YY].SVW؋ϋ֋C_^[SVW؋ϋ֋C_^[SVW؋֋CЋ_^[UjjjjSVW3UhOd0d M֋CU3ZYYdhVE_^[]SVW؋֋CRP_^[USVW3ۉ]ڋ3Uhd0d ƺG@E3ۋÃws-Ht ƺMӋEUC uƺ3ZYYdhE_^[YY][,]USVW3ۉ]]܉]3UhBd0d ֋CEEPCEE E܍VU܍MË0V EEE UXUËQEER~uuƋRUEPhUË8WƋRH|D@E3M֋E8W EPEPuEU3ɸxM܋UË8WFMu3ZYYdhIEܺE_^[]%s.%sCountItem%dUSVW3ۉ]ڋ3Uh.d0d ӋF؅NjS{C;FESR}uDCE}t EEPIEUEPVEUEU}t E_tUȋGU3ZYYdhE_^[](null).USVWډE}UP URJHJHPHE3Uhd0d EXK|C3֋EЋFKu3ZYYdhE_^[YY]USVW3ۉ]]]MډE3Uhd0d E@UE}EtMӋEEERE3Uh2d0d u؍UEPEPEPEUMEP EEEE EE UйMEPE8E؋;EƋR3Uhd0d }tNF3ۀ}tEUEPE@EE EUMEP EEEE UйEPEP]EU3ɸEEPӋEZYYCN[3ZYYdhER3ZYYdhZEEtMӋEhERE3Uhd0d UEUMEP EUEHEY3ZYYdhE3ZYYdhE_^[]Count%s.%sItem%dUSVW3ɉMUE3Uhd0d PEHE3Uhd0d ERK|)C3M֋E8W UEЋEFKu3ZYYdhE3ZYYdhE_^[]USVW3ɉMUE3Uhd0d PEHE3Uhd0d ERK|)C3M֋E8W UEЋEFKu3ZYYdhE3ZYYdhE_^[]USVWM3ɋ‹UE3Uhd0d EERN|~FEUEQ؋SEQP}TP˲E3Uhd0d SMES83ZYYdEENu3ZYYdE3EE_^[]SVƋRK|ӋƋQKu^[USVW3ۉ]]]MډE3UhAd0d MӋEE}3Uhd0d EXERNF3ۍMӋE8W EMUtiӋEQExE WEP EQP|5E ׋EQtUЋECNp3ZYYdh&E3҉PUE3ZYYdhHE_^[]USVW3ۉ]]]MډE3UhAd0d MӋEE}3Uhd0d EXERNF3ۍMӋE8W EMUtiӋEQExE WEP EQP|5E ׋EQtUЋECNp3ZYYdh&E3҉PUE3ZYYdhHE_^[]òUSVMU؋uf{tE PVMUCS^[YY]USfxt ]S؋C S[]Sfx&t؋C(S$[U3Uh1d0d u 3ZYYdh8]Ã-m5 II@I$MM&I QQUUYYP]]](]y,aa&] eii *(20&4lz: .Pz> N2  *: 2|&|. <1(1  1 I@I*`1rI iLNLPzLRLTz*y"(J""!1AքH|."1!AQa  &J"!1AB|N *~**,(("0$ 2 5 6"4"4*!0!&6! 18A0AA * 2:A ,A A d]<]*8H] &b L~]] @] zyBy *(H,  ,ly y y ZLZI <" $>*,b $]f N". < h~,"( 0h\". 2 e j, l "y**""  |<< 62.,z(<& (&5"@ 4 B! D 1< A0A FA Q D a6a& 2a9.a=a"H< 2<a \8 *b BH  (|"p %b j  Ԓ2 |(| z"< 2|&||i*`< TL2I <" $@(*,b "f 6 h~4"( 4h*&r8t@". 2 e j, l "**""  | 0  I  `"    "!0!!I !`"! ! "5(Ip %5 vp5I 5F ) *&U:e@e&5*ezH@e 4*e&U e @&5*zH@e 4*&U  ] % `8$me  m e :&& <4 H&ZL B: BL 6 & "NRR ,<"\T$&< " V"V  , ,   <"" @r" 6N :", "&40<*&Dh &D(,. RXPDJ$r^ nV, <($hN,((4d R"J,*= ( $~tp* J6  @<(. Dh J *(8  \PL,\z0tF(6 <@$r6H,(4d T"H,=(: $~d pD6$F Z D6$F Z..:$ FT  ,>$ "0(jT  ,>$ "0(j&4& x)Q0:v   := : M : MMMM]MM M M MAMqMMMQUYaaaaaa a aQa ea  ya  a aA5 a a]!y ay)! a !-)a")1-a$-!51 a&1!95 a(51=9 a*9AI= a,=1MI a.IUM a0MYU a2U]Y! a4Ya]5 a6]eaq a8aQie a:eami a<iqmU a>muq] a@qyu aBu5}yaDyU}QaF}maHaJaLyaNYaPaRaT qaV!aXeqaZa\a^a`abadafahI eq!u%y)}5YY]@#   A]aqy !%)-159=AEMQUY]a!e!i}m}qu}ClQU;eiy}!  %) - 59 =! E#SI5 M9 Q= UA YE aey i} m q u }+    Z    ! ) ) ) ) 1 5   ! ! {5 5 = A  q q   %) - 59 = EI M UY ] e{i m q u y }    ] ] e i m m q -      #U U ] a i m u } } } }   qy}%)-19 =AEIMQY*]QaYimqqquyy}}}]mmmq@p::: `0JJ pH  pB X `0VV`  p  ``` p  VVV pN )R-)q-q1p=<5<9< 5l=9I`8pQTYYuQuim u8 qXqtu|u qqumyp} }*** pR<<y y  0::mmmmp 444p 888p FFFp<<< ]]]p ***p   * * *p 888! p%D)D-D %)-1p59= 5898=8ApMDED IDUt EtIYY=U=M]XpaPePiP i^eqa%q%yap}VV Vnn}E`pF,,Tlh0VRA p <<< p^ l ==p< < <   p @@@!%)-%)-159=59=A pEDIDMD EIMQUY]UY]a`@pR}%}`pRLL- pFF  maa`pF,,TlppVTii1a @ pRA!@ pR--A5` pB==0MMU@0]]\e0pRmTmy} }yy y-0pRT yy - `0&&Zh...`    a