anchor.diff:      FTcpBlockSocket : TTCPBlockSocket;
       FBytesReceived, FBytesSent : Int64;
       FConnected : Boolean;
  +    FLock : TPCCriticalSection;
       {$IFDEF Synapse}
       FRemoteHost : String;
       FRemotePort : Word;
  -    FLock : TPCCriticalSection;
       FSendBufferLock : TPCCriticalSection;
       {$ENDIF}
       FOnConnect: TNotifyEvent;
  
positive.code: procedure TNetTcpIpClient.Disconnect;
  Var DebugStep : String;
  begin
    {$IFDEF DelphiSockets}
    Try
      FTcpBlockSocket.Disconnect;
    Finally
      FConnected := False;
    End;
    {$ENDIF}
    {$IFDEF Synapse}
    if Not FConnected then exit;
    Try
      DebugStep := '';
  
negative.code:         Disconnect;
        end;
      End;
      {$ENDIF}
    finally
      FLock.Release;
    end;
    Result := FConnected;
  end;
  
  constructor TNetTcpIpClient.Create(AOwner : TComponent);
  