diff --git a/Source/Base/uDMBase.pas b/Source/Base/uDMBase.pas
index 2e2e2344..50dc4af9 100644
--- a/Source/Base/uDMBase.pas
+++ b/Source/Base/uDMBase.pas
@@ -24,13 +24,13 @@ type
   private
     FOnThemeChange: TNotifyEvent;
     FEscribirLog : TCriticalSection;
-    procedure IniciarLog;
-    procedure DetenerLog;
+    {procedure IniciarLog;
+    procedure DetenerLog;}
     procedure InitStyleManager;
     procedure OnTBXThemeChange(Sender: TObject);
     procedure LeerConfiguracion;
   public
-    procedure EscribirLog(const AMensaje : String);  
+    {procedure EscribirLog(const AMensaje : String);}  
     procedure SalvarConfiguracion;
     property OnThemeChange: TNotifyEvent read FOnThemeChange write
             FOnThemeChange;
@@ -53,7 +53,7 @@ uses
 }
 procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
 begin
-  IniciarLog;
+  //IniciarLog; <- NO SE USA
 
   TBXSwitcher.OnThemeChange := OnTBXThemeChange;
   TBXSetTheme('Office2003');
@@ -61,7 +61,7 @@ begin
   LeerConfiguracion;
 end;
 
-procedure TdmBase.IniciarLog;
+{procedure TdmBase.IniciarLog;
 var
   AIniFile : String;
 begin
@@ -79,7 +79,7 @@ begin
   JvLogFile.AutoSave := True;
   JvLogFile.Active := True;
   JvLogFile.Clear;
-end;
+end;}
 
 
 procedure TdmBase.InitStyleManager;
@@ -128,10 +128,10 @@ end;
 
 procedure TdmBase.DataModuleDestroy(Sender: TObject);
 begin
-  DetenerLog;
+  // DetenerLog; <- NO SE USA
 end;
 
-procedure TdmBase.DetenerLog;
+{procedure TdmBase.DetenerLog;
 begin
   FreeAndNIL(FEscribirLog);
 end;
@@ -146,6 +146,6 @@ begin
   finally
     FEscribirLog.Release;
   end;
-end;
+end;}
 
 end.