insertar un archivo en un campo blob desde delphi

[[sitrico]]

No pude enviarlo hoy pero encntré este ejemplo:

Código Delphi [-]
procedure TForm1.loadPic;
var
  jpeg: TJPEGImage;
  Stream: TMemoryStream;
  BlobField: TBlobField;
begin
  BlobField := table1.DataSet.FieldByName('Bild') as TBlobField;
  jpeg := TJPEGImage.Create;
  try
    if  (Image1.Picture.Graphic is TJPegImage) then  begin
       jpeg.Assign (ImageFoto.Picture.Bitmap);
    end;
    Stream := TMemoryStream.Create;
    try
       jpeg.SaveToStream (Stream);
      DataSourceForm.DataSet.Edit;
      BlobField.LoadFromStream (Stream);
    finally
      Stream.Free;
    end;
  finally
    jpeg.Free;
  end;
end;

El TBlobField es más o menos equivalente al Querygestion.ParamByName(BlobField).