anchor.diff:        FBufferedNetTcpIpClient.FCritical.Release;
       End;
       if (SendBuffStream.Size>0) then begin
  -      SendBuffStream.Position := 0;
  +       SendBuffStream.Position := 0;
         FBufferedNetTcpIpClient.SendStream(SendBuffStream);
         {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,ClassName,Format('Sent %d bytes',[SendBuffStream.Size]));{$ENDIF}
         SendBuffStream.Size := 0;
  
positive.code:     FCritical : TPCCriticalSection;
      FLastReadTC : TTickCount;
      FBufferedNetTcpIpClientThread : TBufferedNetTcpIpClientThread;
    protected
      Function DoWaitForDataInherited(WaitMilliseconds : Integer) : Boolean;
      Procedure DoWaitForData(WaitMilliseconds : Integer; var HasData : Boolean); override;
    public
  
negative.code:     Function ReadBufferLock : TMemoryStream;
      Procedure ReadBufferUnlock;
      Property LastReadTC : TTickCount read FLastReadTC;
      Property OnReceivedData : TNotifyEvent read FOnReceivedData write FOnReceivedData;
    End;
  
    {$IFDEF Synapse}
  