diff --git a/mdl/m_tcp_client.pas b/mdl/m_tcp_client.pas
index e40193d..eb71c37 100644
--- a/mdl/m_tcp_client.pas
+++ b/mdl/m_tcp_client.pas
@@ -68,7 +68,7 @@ Begin
 
   If Client.FSocketHandle = -1 Then Exit;
 
-WriteLn ('DEBUG SEND ' + Str);
+//  WriteLn ('DEBUG SEND ' + Str);
 
   Client.PurgeInputData(1);
 
@@ -91,6 +91,8 @@ Begin
       ResponseType := strS2I(Copy(ResponseStr, 1, 3));
       Result       := ResponseType;
 
+//       WriteLn ('DEBUG RECV ' + ResponseStr);
+
       If ResponseStr[4] = '-' Then Begin
         {$IFDEF USESTRINGLIST}
           ResponseData.Clear;
@@ -109,8 +111,6 @@ Begin
         Until Copy(Str, 1, 4) = strI2S(ResponseType) + ' ';
       End;
     End;
-
-  writeln('DEBUG RECV ' + ResponseStr);
 End;
 
 End.
diff --git a/mdl/m_tcp_client_ftp.pas b/mdl/m_tcp_client_ftp.pas
index 26bbbbe..712e881 100644
--- a/mdl/m_tcp_client_ftp.pas
+++ b/mdl/m_tcp_client_ftp.pas
@@ -5,6 +5,7 @@ Unit m_Tcp_Client_FTP;
 Interface
 
 Uses
+//  SysUtils, //wordrec
   m_io_Sockets,
   m_Tcp_Client;
 
@@ -194,10 +195,10 @@ Begin
 
     Result := GetResponse = 226;
   End Else Begin
-    If IsPassive Then
-      WriteLn ('DEBUG unable to connect to FTP server for data session')
-    Else
-      WriteLn ('DEBUG unable to establish data session on port ', DataPort);
+//    If IsPassive Then
+//      WriteLn ('DEBUG unable to connect to FTP server for data session')
+//    Else
+//      WriteLn ('DEBUG unable to establish data session on port ', DataPort);
 
     CloseDataSession;
   End;
@@ -240,10 +241,10 @@ Begin
 
     Result := GetResponse = 226;
   End Else Begin
-    If IsPassive Then
-      WriteLn ('DEBUG unable to connect to FTP server for data session')
-    Else
-      WriteLn ('DEBUG unable to establish data session on port ', DataPort);
+//    If IsPassive Then
+//      WriteLn ('DEBUG unable to connect to FTP server for data session')
+//    Else
+//      WriteLn ('DEBUG unable to establish data session on port ', DataPort);
 
     CloseDataSession;
   End;