anchor.diff:      procedure CreateUdpSocket;
       function RecvBuf(var data; const len: Cardinal): Integer;
       function PeekBuf(var data; const len: Cardinal): Integer;
  -    function RecvBufEnd(buf: PAnsiChar; len: Integer; endBuf: PAnsiChar; endBufLen:
  +    function RecvBufEnd(buf: PByte; len: Integer; endBuf: PByte; endBufLen:
           Integer): Integer;
   
   
  
positive.code:       Result := lvRet;
        exit;
      end;
      if buf^ = lvTempEndBuf^ then
      begin
        Inc(lvMatchCounter);
        Inc(lvTempEndBuf);
  
negative.code:   Result := recv(FSocketHandle, data, len, MSG_PEEK);
  end;
  
  function TRawSocket.RecvBufEnd(buf: PByte; len: Integer; endBuf: PByte;
      endBufLen: Integer): Integer;
  var
    lvRecvByte:byte;
    lvRet, j:Integer;
    lvTempEndBuf:PByte;
    lvMatchCounter:Integer;
  begin
    lvTempEndBuf := endBuf;
  