anchor.diff:  begin
     n := FNetTcpIpClientClass.Create(Nil);
     Try
  -    {$IFDEF Synapse}
       n.FLock.Acquire;
       try
  -    {$ENDIF}
         oldSocket := n.FTcpBlockSocket;
         {$IFDEF DelphiSockets}
         n.FTcpBlockSocket := AContext.Connection;
  
positive.code:         Disconnect;
        end;
      End;
    finally
      FLock.Release;
    end;
    Result := FConnected;
    {$ENDIF}
  end;
  
  constructor TNetTcpIpClient.Create(AOwner : TComponent);
  
negative.code:     FTcpBlockSocket : TTCPBlockSocket;
      FBytesReceived, FBytesSent : Int64;
      FConnected : Boolean;
      FLock : TPCCriticalSection;
      {$IFDEF Synapse}
      FRemoteHost : String;
      FRemotePort : Word;
      FSendBufferLock : TPCCriticalSection;
      {$ENDIF}
      FOnConnect: TNotifyEvent;
  