diff --git a/mdl/m_tcp_client.pas b/mdl/m_tcp_client.pas
index 78d2d0b..a780a45 100644
--- a/mdl/m_tcp_client.pas
+++ b/mdl/m_tcp_client.pas
@@ -17,9 +17,9 @@ Type
     ResponseData : TStringList;
     NetInterface : String;
 
-    Constructor Create (NetI: String); Virtual;
-    Destructor  Destroy; Override;
-    Function    Connect (Address: String; Port: Word) : Boolean; Virtual;
+    Constructor Create      (NetI: String); Virtual;
+    Destructor  Destroy;    Override;
+    Function    Connect     (Address: String; Port: Word) : Boolean; Virtual;
     Function    SendCommand (Str: String) : Integer;
     Function    GetResponse : Integer;
   End;
diff --git a/mdl/m_tcp_client_ftp.pas b/mdl/m_tcp_client_ftp.pas
index bb84798..e5ce433 100644
--- a/mdl/m_tcp_client_ftp.pas
+++ b/mdl/m_tcp_client_ftp.pas
@@ -5,7 +5,7 @@ Unit m_Tcp_Client_FTP;
 Interface
 
 Uses
-  SysUtils,   // wordrec get rid of it
+  SysUtils,  // replace wordrec and remove
   m_io_Sockets,
   m_Tcp_Client;