anchor.diff:    Disconnect;
     {$IFDEF Synapse}  // Memory leak on 1.5.0
     FreeAndNil(FSendBufferLock);
  +  {$ENDIF}
     FreeAndNil(FLock);
  -  {$ENDIF}
     inherited;
     FreeAndNil(FTcpBlockSocket);
     {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,ClassName,'Destroying Socket end');{$ENDIF}
  
positive.code:         Disconnect;
        end;
      End;
    Finally
      FLock.Release;
    End;
    {$ENDIF}
  end;
  
  function TNetTcpIpClient.GetConnected: Boolean;
  
negative.code: 
  function TNetTcpIpClient.Connect: Boolean;
  begin
    FLock.Acquire;
    try
      {$IFDEF DelphiSockets}
      FSocketError := 0;
      Try
        (FTcpBlockSocket as TIdTCPClient).Connect;
        FConnected := True;
        Result := True;
      Except
        On E:Exception do begin
          Result := False;
          {$IFDEF HIGHLOG}TLog.NewLog(lterror,ClassName,'Cannot connect to a server at: '+ClientRemoteAddr+' Reason: ('+E.ClassName+') '+E.Message);{$ENDIF}
          Disconnect;
        end;
      End;
      {$ENDIF}
      {$IFDEF Synapse}
      Try
        FTcpBlockSocket.Connect(FRemoteHost,IntToStr(FRemotePort));
        FConnected := FTcpBlockSocket.LastError=0;
  