TJpegImage.LoadFromStream(mrevStream)报错JPEG Error #52 ?

datalen:=Socket.ReceiveLength;
  getmem(refbuf,datalen);
  mrevStream.Clear;
代码如下:
  mrevStream.Position :=0;
  position:=0;
  while position<datalen do
  begin
    revlen:=Socket.ReceiveBuf(refbuf[position],datalen-position);
    position:=position+revlen;
  end;
  mrevStream.Write(refbuf,datalen);
  freemem(refbuf);
  mMyJpeg:=TJpegImage.Create;
  mrevStream.Position :=0;
  mMyJpeg.LoadFromStream(mrevStream);
  Image.Picture.Bitmap.Assign(mMyJpeg);
  mMyJpeg.Free;