XE4 + Zeos, хранение Jpeg

var
  BlobStream: TStream;
  FileStream: TStream;
begin
 
  if Dataset.Active then begin
    if dlgOpenFile.Execute then
      begin
        if Dataset.State <> dsEdit then
          Dataset.Edit;
 
        Image1.Picture.LoadFromFile(dlgopenfile.FileName);
 
        if Image1.Picture.Graphic <>nil then  begin
 
            BlobStream := Dataset.CreateBlobStream(Dataset.FieldByName('PIC'), bmWrite);
           try
            FileStream := TFileStream.Create(dlgOpenFile.FileName, fmOpenRead);
           try
            BlobStream.CopyFrom(FileStream, FileStream.Size);
            Log(inttostr(BlobStream.Size)+' bytes saved to BLOB'); // <- проверка размера
          finally
            FileStream.Free;
          end;
        finally
          BlobStream.Free;
        end;
        Dataset.Post;
      end;
    end;
  end;

var
  blob: TStream;
  jpg: TJpegImage;
begin
 
  image1.Picture.Graphic:=nil;
 
  try
    if dataset.FieldByName('PIC').IsNull then begin
       Log('PIC empty');
       exit;
    end;
 
    jpg:=TJPegImage.Create;
 
    blob:=dataset.CreateBlobStream(dataset.FieldByName('PIC'), bmRead);
    Log('loading from blob '+inttostr(blob.Size)+' bytes'); // <- контроль размера
    jpg.LoadFromStream(blob);
    image1.Picture.Assign(jpg);
 
  except
      log('error loading image');
  end;

initialization
  ReportMemoryLeaksOnShutdown := True;
end.