看看这样行否?字段类型 image,sql 7
var
  s : TMemoryStream;
begin
  s := TMemoryStream.Create;
  s.LoadFromFile('.....');
  s.Position := 0;
  with ADOQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Add('insert into drawdwg (tabno,filedwg) values (:no,:dwg)');
    Parameters.ParamByName('no').Value := Edit1.Text;
    Parameters.ParamByName('dwg').LoadFromStream(s,ftBlob);
    Execsql;
  end;
  s.Free;
  showmessage('save ok!');
end;