Browse Source

Remove invalid log on TcpIp component

PascalCoin 5 years ago
parent
commit
8491aefd37
1 changed files with 1 additions and 2 deletions
  1. 1 2
      src/core/UTCPIP.pas

+ 1 - 2
src/core/UTCPIP.pas

@@ -350,8 +350,7 @@ begin
       DebugStep := 'Relasing flock';
       FConnected := false;
       DebugStep := 'Calling OnDisconnect';
-      if Assigned(FOnDisconnect) then FOnDisconnect(Self)
-      else TLog.NewLog(ltError,ClassName,'OnDisconnect is nil');
+      if Assigned(FOnDisconnect) then FOnDisconnect(Self);
       {$ENDIF}
     Finally
       FLock.Release;