9;Sg@#Unit1g @UStrArrayClrg@HandleFinally`pg @UStrLAsgB,g @UStrEqual`pg @UStrCat3gLengthg@EnsureUnicodeStringF$lџ| (g@UStrLeno>GDfPointerfPWord!fWordNf AnsiStringajbg@InternalUStrFromLStrFM fPLongintˊg TObject.Free\ggRoundg@ROUND`pgDeleteg @UStrDelete~{gFalsesɚg@UStrFromWCharV>g@UStrAsgB,gPosFqgPosPg@UniqueStringUhg @CallDynaInst`pgTruevɚg @UStrAddRefIcdSysInitcdWindowsfTPointcdMessagescdSysUtilsgExtractFilePathYLg StringReplaceVy2>f:15Xg rfReplaceAllb.g rfIgnoreCasee.gStrToIntެ gIntToStrXzcdVariantscdClassesf TShiftStatecf TStringListᧅgTComponent.UpdateRegistry٧TgTComponent.WriteStateݧTgTComponent.SafeCallExceptionTgTPersistent.AssigngfTStringsl g .TStringList{c6gTStringList.Create Ț|cdGraphicscdControlsf TMouseButtonlgTWinControl.AssignToāgTWinControl.CanAutoSizeɁgTWinControl.CanResizeʁgTWinControl.ConstrainedResizégTWinControl.CreateHandleρg#TWinControl.CustomAlignInsertBeforeӁgTWinControl.CustomAlignPositionԁgTWinControl.DestroyWnd؁g!TWinControl.DockReplaceDockClientہgTWinControl.GetClientOrigingTWinControl.GetControlExtentsgTWinControl.GetDeviceContextgTWinControl.SetParentBackground g#TWinControl.SetParentDoubleBuffered gTWinControl.ShowControlg+TWinControl.UpdateControlOriginalParentSizegTWinControl.InvalidateGgTWinControl.RepaintMgTWinControl.SetBoundsPgTWinControl.UpdateSgTControl.GetActionv@gTControl.GetEnabled|@g!TControl.GetFloatingDockSiteClass~@gTControl.SetAutoSize@gTControl.SetDragMode@gTControl.SetEnabled@gTControl.SetName@gTControl.SetBiDiMode@gTControl.GetDragImages@gTControl.InitiateAction@fTControlw*acdFormsfTFormgTCustomForm.AlignControls6HɍgTCustomForm.CreateParams:HɍgTCustomForm.CreateWindowHandle;HɍgTCustomForm.CreateWndHɍgTCustomForm.DestroyHandle?HɍgTCustomForm.DestroyWindowHandle@HɍgTCustomForm.DoCreateBHɍgTCustomForm.DoDestroyCHɍgTCustomForm.GetClientRectHHɍgTCustomForm.GetFloatingIHɍgTCustomForm.LoadedMHɍgTCustomForm.NotificationNHɍgTCustomForm.PaintWindowPHɍgTCustomForm.ReadStateRHɍgTCustomForm.RequestAlignSHɍgTCustomForm.SetParentBiDiModeUHɍgTCustomForm.SetParentWHɍgTCustomForm.UpdateActionsXHɍgTCustomForm.ValidateRenameZHɍgTCustomForm.WndProc\HɍgTCustomForm.Resizing]HɍgTCustomForm.QueryInterfaceaHɍgTCustomForm.CreateHɍgTCustomForm.CreateNewHɍgTCustomForm.DestroyHɍgTCustomForm.CloseQueryHɍgTCustomForm.DefaultHandlerHɍgTCustomForm.SetFocusHɍgTCustomForm.SetFocusedControlHɍgTCustomForm.ShowModalHɍgTCustomForm.WantChildKeyHɍgTCustomForm.AfterConstructionHɍgTCustomForm.BeforeDestructionHɍg%TScrollingWinControl.AdjustClientRect|ag&TScrollingWinControl.AutoScrollEnabled~ag%TScrollingWinControl.AutoScrollInViewag.TFormȼg Application=;f TApplication/gTApplication.GetExeNamef TCustomFormi'gTCustomForm.SetAlphaBlendValue*HɍcdDialogsf TOpenDialoge-Kf TSaveDialogq g .TOpenDialogH)Cg .TSaveDialogT^gTOpenDialog.SetInitialDirM`gTOpenDialog.GetFileNameM`g ShowMessageJcdStdCtrlsfTButtonCfTLabelf TComboBoxg.TButton^=g.TLabel~g .TComboBox&f TCustomCombo cdExtCtrlsfTBevelJf TRadioGroup* 4g.TBevelng .TRadioGroup xcdGridsf TStringGrid%&g .TStringGridlxf TDrawGridugTStringGrid.GetCellsEgTStringGrid.SetCellsEgTCustomGrid.SetDefaultColWidth<1|gTCustomGrid.SetDefaultRowHeight=1|gTCustomGrid.SetColCount:1|gTCustomGrid.SetRowCountF1|ceUnit3gForm3cceUnit2gNewMap bceUnit4gZVEDedit5tceTypesfTPointc5Unit1_c5Systemc5SysInit\c5Windows^c5Messagesbc5SysUtilsdc5Variantstc5Classesvc5Graphicsc5Controlsc5Formsc5DialogsQc5StdCtrlsqc5ExtCtrlsc5Gridsc' BILA_PANI>mK6 ' TELEVIZOR>mK(6 'ZED>mKP6 ' VOLNE_POLEXl-Ux'ZVED>mK|6 & .TEditorBLl5D* TEditorBLaǴF EditorBLF~7.2FH5Unit3c5Unit2c5Unit4c(TEditorBL.Button1ClickL!JF!SelfF!SenderciF(TEditorBL.Button2ClickL6JF!SelfF!SendercuF(TEditorBL.Button3ClickLJF!SelfF!Sender If Jf K  ZVcntf Sf ZMfcF(TEditorBL.Button4ClickLQJF!SelfF!Sender CNT cF(TEditorBL.Button5ClickāLtJF!SelfF!SendercF(TEditorBL.DeleteZVEDρLA JF!SelffF!CNTf If J  ccntf CNTnlf Sf DIRf . . . . . . .cF(TEditorBL.FormCloseQueryÁLJF!SelfF!Sender"CanClose cF(TEditorBL.FormCreateLRJF!SelfF!SendercF(TEditorBL.FormDestroyL6JF!SelfF!SendercF(TEditorBL.FormResizeLΈJF!SelfF !Senderc)F(TEditorBL.Get_ZVED_DirectiońLF!SelfF!RADEK !POZICEf #Result& Sf I  KONEC c5F(TEditorBL.Get_ZVED_SteṕL F!SelffF!RADEK !POZICE  Result  Sf I  KONEC cUF(TEditorBL.InitBludisteˁL JF!SelfF Sf psf P STOP If J  K . . .cuF(TEditorBL.JeToSmer΁L F!SelfF!ZNAKf Result  V cF(TEditorBL.StringGrid1MouseUpLyJF!SelfF!Sender!Button$!Shift& !X& !Y&  AKTfcF(TEditorBL.StringGrid1SelectCellL,JF!SelfF!Sender!ACol !ARow& " CanSelect& cF( Finalization`p!Jc(Unit1!JcGF FBQ(AM &,Button1 2 F,Button2 2 F, OpenDialog1 .F,Bevel1 :F, StringGrid1 >!F, RadioGroup1 <1 F,Button3 2A F, SaveDialog1 0QF,Label1 4aF, ComboBox1 6qF,Button4 2F,Button5 2!F. Button1Click i%F. FormCreate )F. FormDestroy -F. FormResize )1F.StringGrid1SelectCell 5F.StringGrid1MouseUp 9F. Button3Click =F. Button2Click uAF. Button4Click EF.FormCloseQuery IF. Button5Click MF,RADYQF,SLOUPCEUF, POZICE_BPYF,POZICE_T]F,SELECTx aF,SELECTy eF. InitBludisteuiF.Get_ZVED_Direction5mF. Get_ZVED_StepUqF.JeToSmeruF. DeleteZVEDyF,BLUDISTE }F,ZVEDOVE !F, ZVEDOVEpos 1FcDH@lJ & # X @X` xButton1|Button2 OpenDialog1Bevel1 StringGrid1 RadioGroup1Button3 SaveDialog1Label1 ComboBox1Button4Button5  Button1Click FormCreate FormDestroy FormResizeStringGrid1SelectCellStringGrid1MouseUp Button3Click Button2Click Button4ClickFormCloseQuery Button5Click TEditorBL TEditorBLXlUnit1UjjjS3Uhd0d UEUEUR3t(EtЃ f:t EUf|Xv3t(EtЃ f:t EUf|X^tECMEMX3ZYYdh#EԺE^[]@.Sز[S؋[SVWQt#FH@$$Ћt#FL@$$ЋZ_^[UjjjSVWMڋ3Uhd0d MӋS EM EUTZUu C~ՍEEU3ZYYdhEE_^[]UjjjSVډE3Uhd0d MEӋS Eκ EUTZUEu C~ԍEK3ZYYdhEE^[]UjjIuQSVW3Uhd0d M3ҋS UˍEEM3ҋ8W ˃ӍEERDEEMUS EUEtЃ f:t EUt+EEUTZEuHEH3EUTZEuHEHEUTZEu7ˋUȍSEEPˋUU܋Q8EtЃ f:t EUf|X.uEfDXE؋UTZEPMIJCMEMRH|@@EEUԋE@EԺUԋQ8EMuf3ZYYdhEԺE_^[] . zvdUQSUE3Uhtd0d 3ۋEt-EtEtEu3ZYYdh{E[Y]<>v^UjjjjS3Uhd0d EPpuEtoEt_EEPPpuEtoEt_EEPPpt EtxEthEtXpuP*EEP3ZYYdhE[] U쉈U ]U3UhOd0d u(3ZYYdhV]Ã-m) )- - 15 5 9= = A EI I MM QMMM9%) |~-15 ! Mi&"$)"82&u&&*:]a QQM i i=Efi  e:i*ui"$ &F u"u 0=Ef  e(\ * ( *< , \i  6"$$ &  m T @  ZF   "2"l@@@2<hL*46Z $$ <x 86@T:@T:4`>TR F$T)19AEQ"Q$Q&Q(Q*Q ,Q .Q0Q2Q4Q6Q8Q:i>Q>B@Q@)DB Q BHDQ"DLHQ$HNLQ&LuPNQ(NRPQ*PTRQ,RVT!Q.TQ0ZQ2ZQ4^Q6^Q8bQ:buhfQ<f5jh-Q>hUljQ@jnlQBlpn=QDnQFtQHtQJvU~mqU`AUZy}I-)zBƝ0ʡ:̍u  15]ez<a})}6)!=EEEEII   z"z&z@zJ!% -1 !!9=-A-E1I5M9Q9Y]aeimqy} 5E 1= 9I 1A`)QY}}}i@m4mu@yy2`PpD==`p x@R@X0e @N@!!2)@p- -5p9B=B=bMQ QMQ MM9QU0]@a@]famqqmqmmq)e)uXpyFy p2@@ 8`$  a