Картинки, jpeg через сокет

  ms := TMemoryStream.Create;
  ms.Write(s, length(s));
  jpg := TJpegImage.Create;
  jpg.LoadFromStream(ms);
 
  img1.Picture.Bitmap.Assign(jpg);  // здесь вылезает ошибка "JPEG error #42"
  jpg.Free;

  jpg := TJpegImage.Create;
  jpg.Assign(scr);
  jpg.CompressionQuality := 1;
  jpg.Compress;
  ms := TMemoryStream.Create;
  jpg.SaveToStream(ms);
  ms.Position := 0;
  P_ := ms.Memory;
  s1.Socket.Connections[0].SendBuf(P_^, ms.Size);

ms.Position := 0;

ms.Write(s, length(s));

frame: string;
...
if copy(s, 1, 5) = 'BEGIN' then
  begin
    frame := '';
    frame := frame + copy(s, 6, length(s));
  end
  else
    if copy(s, length(s) - 2, 3) = 'END' then        //В этот блок не заходит
    begin
      frame := frame + copy(s, 1, length(s) - 3);
      ms := TMemoryStream.Create;
      ms.Write(frame[1], length(frame));        //Коммент northener
      ms.Position := 0;
      jpg := TJpegImage.Create;
      jpg.LoadFromStream(ms);
      img1.Picture.Bitmap.Assign(jpg);
      jpg.Free;
      img1.Refresh;
      ms.Free;
    end
    else
      frame := frame + s;

    s1.Socket.Connections[0].Sendtext('BEGIN');
    s1.Socket.Connections[0].SendBuf(P_^, ms.Size);
    s1.Socket.Connections[0].Sendtext('END');