如何从表中读取image字段类型的值，并送入一个变量

Question

var
  img : TFileStream;
begin
  img := TFileStream.Create(...);
  (Table1.FieldByName('Image') as TBlobField).SavetoFile('c:\temp\a.bmp');
  img.LoadFromFile(c:\temp\a.bmp');
  img.Free;
end;

Answer 1

var
  img : TBitmap;
begin
  img := TBitmap.Create ;
  img.Picture.Bitmap.Assign(Table1.FieldByName('ImgField').value) ;
end ;

Answer 2

我用的是ADOTable控件, 要求不用SQL 语言. 而用Locate, 或者其它函数.
还有一个问题请教查询一条记录并使之成为当前记录.在表里头有两个字段一个是 ID 一个是 name
要求按 and 查询
    
Where id='001' and name='张'怎样改成函数来实现.