anchor.diff:  constructor TBufferedNetTcpIpClient.Create(AOwner: TComponent);
   begin
     inherited;
  +  FOnReceivedData := Nil;
     FLastReadTC := TPlatform.GetTickCount;
     FCritical := TPCCriticalSection.Create('TBufferedNetTcpIpClient_Critical');
     FSendBuffer := TMemoryStream.Create;
  
positive.code:   FreeAndNil(FReadBuffer);
    FreeAndNil(FSendBuffer);
    inherited;
  end;
  
  procedure TBufferedNetTcpIpClient.DoWaitForData(WaitMilliseconds: Integer; var HasData: Boolean);
  
negative.code:     Function ReadBufferLock : TMemoryStream;
      Procedure ReadBufferUnlock;
      Property LastReadTC : TTickCount read FLastReadTC;
      Property OnReceivedData : TNotifyEvent read FOnReceivedData write FOnReceivedData;
    End;
  
    {$IFDEF Synapse}
  