Flyt compresst bitmat til BlobField

Har følgende kode:

var
  jpeg: Tjpegimage;
  ms: Tmemorystream;
begin
  jpeg := tjpegimage.create;
  jpeg.assign(image1.Picture.Bitmap);
  jpeg.compress;
  jpeg.savetofile('C:\BasAltScanner.jpg');
  Image2.Picture.LoadFromFile('C:\BasAltScanner.jpg');
  Image2.Refresh;

  ms := Tmemorystream.Create;
  Image2.Picture.Bitmap.SaveToStream(ms);
  TableScanning.Edit;
  TBlobField(TableScanning.FieldByName('Scanning')).LoadFromStream(ms);
  TableScanning.Post;
  jpeg.free;
  ms.Free;

Men det gemmer ikke noget i table. Hvad gør jeg galt ?