保存   :   
  var   Ms:TmemoryStream;   
  begin   
      ms:=TmemoryStream.Create;   
      Jpg.Assign(Image1.Picture.Graphic);   
      Jpg.SaveToStream(Ms)   ;   
      Ms.Position   :=0;   
      ADOquery1.append;   
      TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms);   
      ADOquery1.Post;   
      Ms.Free   ;   
  end;   
//上面这种保存图片到数据库方法,如何用到下面这种查询里面去?
  
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('update 数据库 set 图片 = :bb where 编号=:aa');
  ADOQuery2.Parameters.ParamByName('bb').Value := LoadFromStream(Ms);//这样好像不对?
  ADOQuery2.Parameters.ParamByName('aa').Value := bianhao;
  ADOQuery2.ExecSQL;
  Ms.Free   ;