cambio witreln por OutputDebugString

Unit1.dfm

@@ -457,6 +457,8 @@ object Form1: TForm1
         Caption = 'FECHA Y HORA'
         TabOrder = 8
         OnClick = FechaHoraClick
+        ExplicitLeft = 1
+        ExplicitTop = 9
       end
       object ConsEstado: TButton
         Left = 2

Unit1.pas

@@ -333,7 +333,7 @@ end;
 
 procedure TForm1.FechaHoraClick(Sender: TObject);
 begin
- dm.CommandFechaHora_Click;
+dm.CommandFechaHora_Click;
 end;
 
 procedure TForm1.GenericoClick(Sender: TObject);