diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm
index 01de9c07..85e735dd 100644
--- a/Source/Servidor/uDataModuleServer.dfm
+++ b/Source/Servidor/uDataModuleServer.dfm
@@ -21,6 +21,7 @@ object dmServer: TdmServer
     Top = 16
   end
   object BINMessage: TROBinMessage
+    OnWriteException = BINMessageWriteException
     Left = 136
     Top = 16
   end
diff --git a/Source/Servidor/uDataModuleServer.pas b/Source/Servidor/uDataModuleServer.pas
index 731dc3e4..0ab8494f 100644
--- a/Source/Servidor/uDataModuleServer.pas
+++ b/Source/Servidor/uDataModuleServer.pas
@@ -33,6 +33,8 @@ type
       IsExpired: Boolean);
     procedure ConnectionManagerConnectionAcquired(Sender: TDAConnectionManager;
       const Connection: IDAConnection);
+    procedure BINMessageWriteException(Sender: TROMessage; aStream: TStream;
+      E: Exception);
   private
     FEscribirLog : TCriticalSection;
     FConnectionName : string;
@@ -144,6 +146,12 @@ begin
     Result := Result + chr(ord(Source[i]) - Random(10) - 1);
 end;
 
+procedure TdmServer.BINMessageWriteException(Sender: TROMessage;
+  aStream: TStream; E: Exception);
+begin
+  EscribirLog(E.Message);
+end;
+
 procedure TdmServer.ConnectionManagerConnectionAcquired(
   Sender: TDAConnectionManager; const Connection: IDAConnection);
 begin