trabajo terminado

sin probar

Project1.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{BC9E6C6F-50E7-4CA5-9AEC-F7D14A3EF360}</ProjectGuid>
-        <ProjectVersion>16.0</ProjectVersion>
+        <ProjectVersion>17.2</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <MainSource>Project1.dpr</MainSource>
         <Base>True</Base>
@@ -109,7 +109,7 @@
                     <Source Name="MainSource">Project1.dpr</Source>
                 </Source>
             </Delphi.Personality>
-            <Deployment>
+            <Deployment Version="1">
                 <DeployFile LocalName="Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
                         <RemoteName>Project1.exe</RemoteName>
@@ -117,7 +117,7 @@
                     </Platform>
                 </DeployFile>
                 <DeployClass Required="true" Name="DependencyPackage">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                         <Extensions>.dylib</Extensions>
                     </Platform>
@@ -134,9 +134,13 @@
                         <Operation>1</Operation>
                         <Extensions>.dylib</Extensions>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="DependencyModule">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                         <Extensions>.dylib</Extensions>
                     </Platform>
@@ -153,14 +157,21 @@
                         <Operation>1</Operation>
                         <Extensions>.dylib</Extensions>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="iPad_Launch2048">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectOSXInfoPList">
                     <Platform Name="OSX32">
@@ -169,7 +180,11 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectiOSDeviceDebug">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
@@ -187,16 +202,19 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectiOSResource">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectOSXEntitlements">
                     <Platform Name="OSX32">
-                        <RemoteDir>Contents</RemoteDir>
+                        <RemoteDir>../</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
@@ -207,12 +225,15 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="iPhone_Launch640">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="Android_SplashImage960">
                     <Platform Name="Android">
@@ -227,12 +248,15 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="iPhone_Launch320">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="Android_LauncherIcon144">
                     <Platform Name="Android">
@@ -281,7 +305,12 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectiOSEntitlements">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>../</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
@@ -305,20 +334,26 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectiOSInfoPList">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="iPad_Launch1024">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="Android_DefaultAppIcon">
                     <Platform Name="Android">
@@ -333,26 +368,32 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="ProjectiOSDeviceResourceRules">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="iPad_Launch768">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
-                </DeployClass>
+                    <Platform Name="iOSDevice32">
-                <DeployClass Required="true" Name="ProjectOutput">
-                    <Platform Name="iOSDevice">
                         <Operation>1</Operation>
                     </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
                     <Platform Name="Android">
                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
                     <Platform Name="Win32">
                         <Operation>0</Operation>
                     </Platform>
@@ -363,6 +404,9 @@
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="AndroidLibnativeArmeabiFile">
                     <Platform Name="Android">
@@ -377,10 +421,10 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="File">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="Android">
                         <Operation>0</Operation>
                     </Platform>
-                    <Platform Name="Android">
+                    <Platform Name="iOSDevice64">
                         <Operation>0</Operation>
                     </Platform>
                     <Platform Name="Win32">
@@ -393,14 +437,20 @@
                     <Platform Name="iOSSimulator">
                         <Operation>0</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="iPhone_Launch640x1136">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="Android_LauncherIcon36">
                     <Platform Name="Android">
@@ -415,12 +465,15 @@
                     </Platform>
                 </DeployClass>
                 <DeployClass Name="iPad_Launch1536">
-                    <Platform Name="iOSDevice">
+                    <Platform Name="iOSDevice64">
                         <Operation>1</Operation>
                     </Platform>
                     <Platform Name="iOSSimulator">
                         <Operation>1</Operation>
                     </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
                 </DeployClass>
                 <DeployClass Name="Android_LauncherIcon48">
                     <Platform Name="Android">
@@ -439,9 +492,10 @@
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
-                <ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>

Unit1.pas

@@ -4,10 +4,11 @@ interface
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, HasarUnit, Vcl.ExtCtrls;
 
 type
   TForm1 = class(TForm)
+    LeftPanel: TPanel;
     Descargas: TGroupBox;
     ObtRepLog: TButton;
     ObtRepDoc: TButton;
@@ -33,8 +34,9 @@ type
     CfgRed: TButton;
     CfgImprFis: TButton;
     CfgFyh: TButton;
+    RightPanel: TPanel;
+    CenterPanel: TPanel;
     DNFH: TGroupBox;
-    Cancel: TButton;
     Generico: TButton;
     PRESUP: TButton;
     DONA: TButton;
@@ -61,6 +63,106 @@ type
     TFC: TButton;
     TFB: TButton;
     TFA: TButton;
+    AcumCierres: TGroupBox;
+    Audit: TButton;
+    CierreZ: TButton;
+    Equis: TButton;
+    ConsCierreZ: TButton;
+    ConsAcumMemoria: TButton;
+    ConsAcumComprob: TButton;
+    Consultas: TGroupBox;
+    RangoZ: TButton;
+    ObtStImpr: TButton;
+    ObtStFiscal: TButton;
+    ConsZona: TButton;
+    ZBorr: TButton;
+    ConsModvers: TButton;
+    ConsError: TButton;
+    Subtot: TButton;
+    FechaHora: TButton;
+    ConsEstado: TButton;
+    ConsDocAsoc: TButton;
+    ConsCorreo: TButton;
+    ConsZetas: TButton;
+    Capac: TButton;
+    DatosIni: TButton;
+    ConsCfgRed: TButton;
+    Protocolos: TGroupBox;
+    Salir: TButton;
+    Protocolo: TButton;
+    Cancel: TButton;
+    Label1: TLabel;
+    procedure CargaLogoClick(Sender: TObject);
+    procedure AvanzPapClick(Sender: TObject);
+    procedure CopiarDocClick(Sender: TObject);
+    procedure AbrirCajClick(Sender: TObject);
+    procedure BorrarLogoClick(Sender: TObject);
+    procedure DocxMailClick(Sender: TObject);
+    procedure ReimprClick(Sender: TObject);
+    procedure ModifIniActivClick(Sender: TObject);
+    procedure ModifCategClick(Sender: TObject);
+    procedure ModifIIBBClick(Sender: TObject);
+    procedure CfgRedClick(Sender: TObject);
+    procedure CfgServCorreoClick(Sender: TObject);
+    procedure CfgImprFisClick(Sender: TObject);
+    procedure CfgZBorrClick(Sender: TObject);
+    procedure CfgFyhClick(Sender: TObject);
+    procedure CFgZonaClick(Sender: TObject);
+    procedure CfgBaudiosClick(Sender: TObject);
+    procedure ObtRepAuditClick(Sender: TObject);
+    procedure ObtRepElectrClick(Sender: TObject);
+    procedure ObtRepDocClick(Sender: TObject);
+    procedure ObtRepLogClick(Sender: TObject);
+    procedure RBOXClick(Sender: TObject);
+    procedure DONAClick(Sender: TObject);
+    procedure RTOXClick(Sender: TObject);
+    procedure PRESUPClick(Sender: TObject);
+    procedure RTORClick(Sender: TObject);
+    procedure GenericoClick(Sender: TObject);
+    procedure TNCAClick(Sender: TObject);
+    procedure TNCBClick(Sender: TObject);
+    procedure TNDMClick(Sender: TObject);
+    procedure NCCClick(Sender: TObject);
+    procedure TNDCClick(Sender: TObject);
+    procedure TNCMClick(Sender: TObject);
+    procedure TNDBClick(Sender: TObject);
+    procedure TRAClick(Sender: TObject);
+    procedure TRBClick(Sender: TObject);
+    procedure TNDAClick(Sender: TObject);
+    procedure TRCClick(Sender: TObject);
+    procedure TFMClick(Sender: TObject);
+    procedure TRMClick(Sender: TObject);
+    procedure TFCClick(Sender: TObject);
+    procedure TiqueClick(Sender: TObject);
+    procedure TFBClick(Sender: TObject);
+    procedure TiqueNCClick(Sender: TObject);
+    procedure TFAClick(Sender: TObject);
+    procedure PatronClick(Sender: TObject);
+    procedure CancelClick(Sender: TObject);
+    procedure RangoZClick(Sender: TObject);
+    procedure FechaHoraClick(Sender: TObject);
+    procedure EquisClick(Sender: TObject);
+    procedure SalirClick(Sender: TObject);
+    procedure ProtocoloClick(Sender: TObject);
+    procedure ConsAcumMemoriaClick(Sender: TObject);
+    procedure ConsCierreZClick(Sender: TObject);
+    procedure ConsAcumComprobClick(Sender: TObject);
+    procedure CierreZClick(Sender: TObject);
+    procedure AuditClick(Sender: TObject);
+    procedure SubtotClick(Sender: TObject);
+    procedure ConsEstadoClick(Sender: TObject);
+    procedure ConsErrorClick(Sender: TObject);
+    procedure ConsDocAsocClick(Sender: TObject);
+    procedure ConsModversClick(Sender: TObject);
+    procedure ConsCorreoClick(Sender: TObject);
+    procedure ZBorrClick(Sender: TObject);
+    procedure ConsZetasClick(Sender: TObject);
+    procedure ConsZonaClick(Sender: TObject);
+    procedure CapacClick(Sender: TObject);
+    procedure ObtStFiscalClick(Sender: TObject);
+    procedure DatosIniClick(Sender: TObject);
+    procedure ObtStImprClick(Sender: TObject);
+    procedure ConsCfgRedClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -74,4 +176,359 @@ implementation
 
 {$R *.dfm}
 
+procedure TForm1.AbrirCajClick(Sender: TObject);
+begin
+CommandAbrirCaj_Click;
+end;
+
+procedure TForm1.AuditClick(Sender: TObject);
+begin
+CommandAudit_Click;
+end;
+
+procedure TForm1.AvanzPapClick(Sender: TObject);
+begin
+CommandAvanzPap_Click;
+end;
+
+procedure TForm1.BorrarLogoClick(Sender: TObject);
+begin
+ CommandBorrarLogo_Click;
+end;
+
+procedure TForm1.CancelClick(Sender: TObject);
+begin
+ CommandCancel_Click;
+end;
+
+procedure TForm1.CapacClick(Sender: TObject);
+begin
+ CommandCapac_Click;
+end;
+
+procedure TForm1.CargaLogoClick(Sender: TObject);
+begin
+ CommandCargaLogo_Click;
+end;
+
+procedure TForm1.CfgBaudiosClick(Sender: TObject);
+begin
+CommandCfgBaudios_Click;
+end;
+
+procedure TForm1.CfgFyhClick(Sender: TObject);
+begin
+CommandCfgFyh_Click;
+end;
+
+procedure TForm1.CfgImprFisClick(Sender: TObject);
+begin
+CommandCfgImprFis_Click;
+end;
+
+procedure TForm1.CfgRedClick(Sender: TObject);
+begin
+CommandCfgRed_Click;
+end;
+
+procedure TForm1.CfgServCorreoClick(Sender: TObject);
+begin
+CommandCfgServCorreo_Click;
+end;
+
+procedure TForm1.CfgZBorrClick(Sender: TObject);
+begin
+CommandCfgZBorr_Click;
+end;
+
+procedure TForm1.CFgZonaClick(Sender: TObject);
+begin
+CommandCFgZona_Click;
+end;
+
+procedure TForm1.CierreZClick(Sender: TObject);
+begin
+CommandCierreZ_Click;
+end;
+
+procedure TForm1.ConsAcumComprobClick(Sender: TObject);
+begin
+CommandConsAcumComprob_Click;
+end;
+
+procedure TForm1.ConsAcumMemoriaClick(Sender: TObject);
+begin
+CommandConsAcumMemoria_Click;
+end;
+
+procedure TForm1.ConsCfgRedClick(Sender: TObject);
+begin
+CommandConsCfgRed_Click;
+end;
+
+procedure TForm1.ConsCierreZClick(Sender: TObject);
+begin
+CommandConsCierreZ_Click;
+end;
+
+procedure TForm1.ConsCorreoClick(Sender: TObject);
+begin
+CommandConsCorreo_Click;
+end;
+
+procedure TForm1.ConsDocAsocClick(Sender: TObject);
+begin
+CommandConsDocAsoc_Click;
+end;
+
+procedure TForm1.ConsErrorClick(Sender: TObject);
+begin
+CommandConsError_Click;
+end;
+
+procedure TForm1.ConsEstadoClick(Sender: TObject);
+begin
+CommandConsEstado_Click;
+end;
+
+procedure TForm1.ConsModversClick(Sender: TObject);
+begin
+CommandConsModvers_Click;
+end;
+
+procedure TForm1.ConsZetasClick(Sender: TObject);
+begin
+CommandConsZetas_Click;
+end;
+
+procedure TForm1.ConsZonaClick(Sender: TObject);
+begin
+CommandConsZona_Click;
+end;
+
+procedure TForm1.CopiarDocClick(Sender: TObject);
+begin
+CommandCopiarDoc_Click;
+end;
+
+procedure TForm1.DatosIniClick(Sender: TObject);
+begin
+CommandDatosIni_Click;
+end;
+
+procedure TForm1.DocxMailClick(Sender: TObject);
+begin
+CommandDocxMail_Click;
+end;
+
+procedure TForm1.DONAClick(Sender: TObject);
+begin
+CommandDONA_Click;
+end;
+
+procedure TForm1.EquisClick(Sender: TObject);
+begin
+ CommandEquis_Click;
+end;
+
+procedure TForm1.FechaHoraClick(Sender: TObject);
+begin
+ CommandFechaHora_Click;
+end;
+
+procedure TForm1.GenericoClick(Sender: TObject);
+begin
+ CommandGenerico_Click;
+end;
+
+procedure TForm1.ModifCategClick(Sender: TObject);
+begin
+CommandModifCateg_Click;
+end;
+
+procedure TForm1.ModifIIBBClick(Sender: TObject);
+begin
+CommandModifIIBB_Click;
+end;
+
+procedure TForm1.ModifIniActivClick(Sender: TObject);
+begin
+CommandModifIniActiv_Click;
+end;
+
+procedure TForm1.NCCClick(Sender: TObject);
+begin
+//CommandNCC_Click;
+end;
+
+procedure TForm1.ObtRepAuditClick(Sender: TObject);
+begin
+CommandObtRepAudit_Click;
+end;
+
+procedure TForm1.ObtRepDocClick(Sender: TObject);
+begin
+CommandObtRepDoc_Click;
+end;
+
+procedure TForm1.ObtRepElectrClick(Sender: TObject);
+begin
+CommandObtRepElectr_Click;
+end;
+
+procedure TForm1.ObtRepLogClick(Sender: TObject);
+begin
+CommandObtRepLog_Click;
+end;
+
+procedure TForm1.ObtStFiscalClick(Sender: TObject);
+begin
+CommandObtStFiscal_Click;
+end;
+
+procedure TForm1.ObtStImprClick(Sender: TObject);
+begin
+CommandObtStImpr_Click;
+end;
+
+procedure TForm1.PatronClick(Sender: TObject);
+begin
+CommandPatron_Click;
+end;
+
+procedure TForm1.PRESUPClick(Sender: TObject);
+begin
+CommandPRESUP_Click;
+end;
+
+procedure TForm1.ProtocoloClick(Sender: TObject);
+begin
+CommandProtocolo_Click;
+end;
+
+procedure TForm1.RangoZClick(Sender: TObject);
+begin
+CommandRangoZ_Click;
+end;
+
+procedure TForm1.RBOXClick(Sender: TObject);
+begin
+CommandRBOX_Click;
+end;
+
+procedure TForm1.ReimprClick(Sender: TObject);
+begin
+CommandReimpr_Click;
+end;
+
+procedure TForm1.RTORClick(Sender: TObject);
+begin
+CommandRTOR_Click;
+end;
+
+procedure TForm1.RTOXClick(Sender: TObject);
+begin
+CommandRTOX_Click;
+end;
+
+procedure TForm1.SalirClick(Sender: TObject);
+begin
+CommandSalir_Click;
+end;
+
+procedure TForm1.SubtotClick(Sender: TObject);
+begin
+CommandSubtot_Click;
+end;
+
+procedure TForm1.TFAClick(Sender: TObject);
+begin
+CommandTFA_Click;
+end;
+
+procedure TForm1.TFBClick(Sender: TObject);
+begin
+CommandTFB_Click;
+end;
+
+procedure TForm1.TFCClick(Sender: TObject);
+begin
+CommandTFC_Click;
+end;
+
+procedure TForm1.TFMClick(Sender: TObject);
+begin
+CommandTFM_Click;
+end;
+
+procedure TForm1.TiqueClick(Sender: TObject);
+begin
+CommandTique_Click;
+end;
+
+procedure TForm1.TiqueNCClick(Sender: TObject);
+begin
+CommandTiqueNC_Click;
+end;
+
+procedure TForm1.TNCAClick(Sender: TObject);
+begin
+CommandTNCA_Click;
+end;
+
+procedure TForm1.TNCBClick(Sender: TObject);
+begin
+CommandTNCB_Click;
+end;
+
+procedure TForm1.TNCMClick(Sender: TObject);
+begin
+CommandTNCM_Click;
+end;
+
+procedure TForm1.TNDAClick(Sender: TObject);
+begin
+CommandTNDA_Click;
+end;
+
+procedure TForm1.TNDBClick(Sender: TObject);
+begin
+CommandTNDB_Click;
+end;
+
+procedure TForm1.TNDCClick(Sender: TObject);
+begin
+CommandTNDC_Click;
+end;
+
+procedure TForm1.TNDMClick(Sender: TObject);
+begin
+CommandTNDM_Click;
+end;
+
+procedure TForm1.TRAClick(Sender: TObject);
+begin
+CommandTRA_Click;
+end;
+
+procedure TForm1.TRBClick(Sender: TObject);
+begin
+CommandTRB_Click;
+end;
+
+procedure TForm1.TRCClick(Sender: TObject);
+begin
+CommandTRC_Click;
+end;
+
+procedure TForm1.TRMClick(Sender: TObject);
+begin
+CommandTRM_Click;
+end;
+
+procedure TForm1.ZBorrClick(Sender: TObject);
+begin
+CommandZBorr_Click;
+end;
+
 end.