AQDr0zXppk.pas(rpk.DFM!7(dchecazXgrutaocdFileCtrlc&gDirectoryExistsۛfTEdit+b.g.TLabel_vg.TEdit˃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#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.GetText#gTControl.SetText#cdGraphicsc&cdClassesc&gTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#cdSysUtilskg DeleteFileۛf%g AssignFileg@Assign/PgRewriteg @RewritText igWritelng@Write0LStringQg@WriteLnQg CloseFileg@CloseQg@_IOTestQg@LStrCatQg @LStrCatNQg @LStrArrayClrQg@LStrClr'@g@HandleFinallyQgTruejQfPChar[g @LStrToPCharQgFalsejQc&.TFormaComprime([*TFormaComprimeOK:1 FormaComprime]S1 H .1f"(creardirectorioA $ archif4c(TFormaComprime.BitBtn1Click#$!Self !Senderc(TFormaComprime.Timer1Timer#$!Self !Senderc(TFormaComprime.FormCreate#H$!Self !Senderc(TFormaComprime.Panel2Click# $!Self !Senderc( FinalizationQ\! $c(pk!$cG FFQ@v,BitBtn1 q,mensaje,Timer1, BarraAvance, Directorio,Label1,Shape1,Panel1,Bevel2 ,Bevel3 ,Bevel4 ,Panel2!,Label21,Label3A- BitBtn1Click- Timer1Timer- FormCreate- Panel2ClickcD"@l%@BitBtn1mensajeTimer1 BarraAvance DirectorioLabel1Shape1Panel1Bevel2Bevel3Bevel4Panel2 Label2Label3 BitBtn1Click Timer1Timer FormCreate Panel2ClickTFormaComprimeTFormaComprime@;pkU 3,(0$ 3Uhd0d 00u&00,,,44h((h00h($$h<  hL, ,4\4443ZYYdh 0݋] \comprime.batcall \pkzip -spr \Sif.zip \*.dbf \*.mdx copy c:\fin.fin c:\res\fin.fin call exit UjS3Uhd0d { uc3ҋj UEEP{ u3ZYYdhE[Y]Iniciando Respaldoc:\res\fin.fin \comprime.batSظLtd3ҋB[c:\res\fin.finProceso Terminadoc:\res\fin.finU3Uh%d0d 3ZYYdh,]Ã-m9 :D\FLNR|VZjJlxzTXprtv<f>@BHhPn^` %&$"B*24 "(8Z"~~   "   ~   "           "   $  b ̲ $$x <b   @ZnJLb 44,   T H $p 4 l ,( @,@ @  a