想通过delphi将word和pdf文件保存到数据库中，需要时下载到硬盘上操

var
  strSQL, sfilename: string;

  MStream: TMemoryStream;
begin
    
adoquery1.sql.clear;
strsql:='INSERT INTO test(upfile)  VALUES (: upfile )' 表 test 中upfile 二进制字段
adoquery1.sql.add(strsql);
sfilename := ExtractFileName('c:\abc.doc');
    MStream := TMemoryStream.Create;
    MStream.LoadFromFile(sfilename ); 
    ADOQuery1.Parameters.ParamByName('upfile').LoadFromStream(MStream, ftBlob);
    MStream.Free;

adoquery1.exesql;