AQD5*T;1zXp DiseClave.pas~0r DiseClave.DFMl0dDBTablesc&fTTableDg.TTabletwgTDBDataSet.SetDatabaseName#gTTable.SetIndexName#gTTable.FindKey#cdDbc&gTDataSet.Close#g TDataSet.Open#gTDataSet.Insert#gTDataSet.FieldByName#cdDBCtrlsc&cdMaskc&cdComCtrlsc&f TRichEditJT&{g .TRichEdit#%G?cdGaugesc&fTGauge,'g.TGaugeGgTGauge.SetProgress#cdGridsc&f TStringGridOg .TStringGridgTStringGrid.GetCells#gTCustomGrid.SetColWidths#gTStringGrid.SetCells#cdSpinc&cdButtonsc&fTBitBtnQg.TBitBtnj"4hcdStdCtrlsc&f TCheckBox+lfTLabel>f TGroupBoxy5 fTEdit+b.g .TCheckBoxvg.TLabel_vg .TGroupBoxJVg.TEdit˃cdDialogsc&cdFormsc&fTFormH)g.TForm!gTCustomForm.AlignControls#gTCustomForm.CreateParams#gTCustomForm.CreateWindowHandle#gTCustomForm.CreateWnd#gTCustomForm.DefaultHandler#gTCustomForm.DefineProperties#gTCustomForm.DestroyWindowHandle#gTCustomForm.GetClientRect#gTCustomForm.Loaded#gTCustomForm.Notification#gTCustomForm.PaintWindow#gTCustomForm.ReadState#gTCustomForm.SetParent#gTCustomForm.ValidateRename#gTCustomForm.WndProc#gTCustomForm.Create#gTCustomForm.Destroy#gTCustomForm.SetFocus#gTCustomForm.WantChildKey#gTCustomForm.Close#g Application^gTCustomForm.ShowModal#cdControlsc&gTWinControl.CreateHandle#gTWinControl.DestroyWnd#gTWinControl.GetClientOrigin#gTWinControl.GetDeviceContext#gTWinControl.ShowControl#gTWinControl.Invalidate#gTWinControl.Repaint#gTWinControl.SetBounds#gTWinControl.Update#gTControl.GetDragImages#gTControl.SetDragMode#gTControl.SetName#gTControl.SetText#gTControl.GetText#cdGraphicsc&cdClassesc&gTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#f TStringListWg .TStringList09gTStringList.SetSorted#cdSysUtilskgIntToStrocdMessageskcdWindowskcdSysInitkcdSystemkfTObject!gTObject.NewInstance#gTObject.FreeInstance#f AnsiStringHDfStringHDfInteger`LgLengthg@LStrLenO:g @LStrAddRefQg@LStrClr'@g@LStrCatQg @LStrArrayClrQg@HandleFinallyQgBreakg @LStrLAsgQg @LStrFromCharpfTextFile:gTObject.Create#gFalsejQgTruncgGetDirg@LGetDirQ=a6g AssignFileg@Assign/PgRewriteg @RewritText igWritelng@Write0LStringQg@WriteLnQg CloseFileg@CloseQg TObject.Free#g@TRUNCQg @LStrCat3Qg@_IOTestQg@AsClassQg@HandleAnyExceptionQg @DoneExceptQceDatoFormzXg FormaDato#f TFormaDatog .TFormaDatouc&.TFormaClaveDiseno1$*TFormaClaveDisenoXӿ& FormaClaveDisenof9&x .1f((CuentaPalabrasq!lineaf Result i cuenta auxfc( PalabraLinea!lineaf!numf#Resultf i cuenta auxfc(TFormaClaveDiseno.BitBtn2Click#"*!Self&!Senderc(TFormaClaveDiseno.BitBtn1Click#*!Selff&!Sender archf  dirf auxf i j kf l m total num_palabrasf, Cf.| cuenta multiplof siguientef ultimo Total_claf Listafc( TFormaClaveDiseno.CheckBox1Click#*!Self&!Senderc( TFormaClaveDiseno.CheckBox2Click#*!Self&!Senderc( TFormaClaveDiseno.CheckBox3Click#*!Self&!Senderc( TFormaClaveDiseno.CheckBox4Click#*!Self&!Senderc( TFormaClaveDiseno.CheckBox5Click#*!Self&!Senderc(TFormaClaveDiseno.Edit6Click#*!Self&!Senderc(TFormaClaveDiseno.Edit7Click#*!Self&!Senderc(TFormaClaveDiseno.Edit8Click#*!Self&!Senderc(TFormaClaveDiseno.Edit9Click#*!Self&!Senderc(TFormaClaveDiseno.FormCreate#*!Self&!Sender archF dirFc( TFormaClaveDiseno.Label1DblClick#*!Self&!Sender .c(!TFormaClaveDiseno.LabelTotalClick#*!Self&!Sender i totalfc(TFormaClaveDiseno.BitBtn3Click#!*!Selff&!Sender if cuentafc( FinalizationQ\! *c( DiseClave!*cG&9FZ- )@v,BitBtn1 q,BitBtn2 ,Detalle, CheckBox1 , CheckBox2 ,Progreso, LabelTotal,Claves,BitBtn3 , CamposExtra,Label4,Label14!,Label191,Label1A,Label2Q,TablaInventarioa,Edit1q,Edit2,Edit3,Edit4,Edit5,Edit6,Edit7,Edit8,Edit9, LabelRuta - BitBtn2Clickm- BitBtn1Clicky-CheckBox1Click-CheckBox2Click-CheckBox3Click-CheckBox4Click-CheckBox5Click- Edit6Click- Edit7Click- Edit8Click- Edit9Click)- FormCreate5-Label1DblClickI-LabelTotalClickY- BitBtn3ClickmcD(@LP0L24D(D(Li68D(K:B<D(l D@2VDhBitBtn1BitBtn2Detalle CheckBox1 CheckBox2Progreso LabelTotalClavesBitBtn3 CamposExtraLabel4Label14 Label19Label1Label2TablaInventarioEdit1 Edit2$Edit3(Edit4,Edit50Edit64Edit78Edit8<Edit9@ LabelRuta BitBtn2Click BitBtn1ClickCheckBox1ClickCheckBox2ClickCheckBox3ClickCheckBox4ClickCheckBox5Click Edit6Click Edit7Click Edit8Click Edit9Click FormCreateLabel1DblClickLabelTotalClick BitBtn3ClickTFormaClaveDiseno TFormaClaveDiseno@; DiseClaveUS3҉UEE3Uhd0d E3ۍEEH~ E~M|,uCBHu3ZYYdhE[YY],USVW3ۉ]]MUEE3Uhd0d EEE~JE|,u;}u EU)GEEUTUECNu3ZYYdhEE_^[],3ɉJ UlSVW3ɉxtMME3Uhd0d |Eܿ E܋ OuEZKuEE3 3҉KuxPE˺xt)xPE˺xCuExPE˺xt ~mECuƲE3ҋEEEu~ 3ҋEQ4NuEE؍xPEMxEHt HtHt-Ht5:EEE&EEEE؋@EE}uEutPEMtxUxPtJE8W tXxJE8W Ù}uEE؋;E}ECNtMm}U3xUx ERN|rF3ۍxӋE8W x ERpۅpClۅl ЋECNu xUxETQXE3ZYYdhtE_^[] \claves.datBUS3Uhd0d <3ҋh3ɺh3ɺh3ҋh3ҋh(3ҋh83ҋ3ZYYdh[]Valores para ClaveAgregar al CampoDato1Dato2Dato3Dato4UjSVڋ53Uhd0d Ë؋ @ UU3ZYYdhE^[Y]Insertar un DatoUjjjSVW3Uhd0d EXO~rEPκ}tMEPκEmEUEMEUFOu3ZYYdhE_^[]Total de Claves USVW3ɉMME3Uhd0d EUE@UEEEETRHEETRH@EEMETUS EEE UE3OEMETUS EPEZQxEPEEPEZQx3Uh&d0d UEEPEZQxUE EPE ZQxUE$EPEZQxUE(EPE,ZQxUE,EPE<ZQxUE0EPELZQxUE4EPE\ZQxUE4EPElZQxUE<EPE|ZQx3ZYYd EEE@EE ЋEEM(m E5 5 y%J"H"` &  4,Z( b  JR J    $T"((  xH $V  ZLt:@$$$$ ($.....eX:,$4 HD8,8HRJHDD&0P~nr\\\\\\\\z "T<&f &ZUa 9`2I^EEI-Q(p2ez aaeae a1e1m@qq yAQp~ EEu           ) 5@9(9I`0Q:UXQXUY`p]8er]!e!m HpR  a