在delphi中怎样把一幅图像bmp格式的保存到数据库 的字段中，并依据此字段分解成二进制编码？ 急！！(100分)

急盼详细的说明！多谢！！

procedure TForm1.FlatButton1Click(Sender: TObject);
var
MS: TMemoryStream;
begin
OpenPictureDialog1.Execute;
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

MS:=TMemoryStream.create;
ms.LoadFromFile(OpenPictureDialog1.FileName);
MS.Position:=0;
AdoTable1.append;
adotable1.FieldByName('number').Value := '1';
adotable1.FieldByName('place').Value:= 'beijing';
TBlobField(ADOTable1.FieldbyName('photo')).LoadFromStream(MS);
AdoTable1.Post;
end;

设定图像字段类型为 Blob
Var
ImgStream:TMemoryStream;
begin
With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE TableName SET ImgField=Img WHERE ID=..');
end;
ImgStream:=TMemoryStream.Create;
Try
ImgStream.LoadFromFile(PicFile);
Query1.ParamByName('pImg').LoadFromStream(ImgStream,ftBlob);
Query1.EXECSQL;
Finally
ImgStream.Free;
end;
end;

ImgField
能问一下，你的图片字段名是什么？是IMGFIELD？如果是，怎么又是
Query1.ParamByName('pImg').LoadFromStream(ImgStream,ftBlob);
说说 imgfield和pimg是怎么定义的吗？
我是个菜鸟

怎样依据此字段分解成二进制编码？ 急

图片字段名是ImgField
pImg是参数