word操作，如何从数据库中拷出word到临时的word文件中，关闭有提示保存 ( 积分: 100 )

临时的word文件我已建立好了，
var Doc:OleVariant;
Stream :TADOBlobStream;
begin //aaa
Doc:=CreateOleObject('Word.Application');
Doc.Visible:=True;
Doc.Documents.Add; //新文档

从数据库中已取出word文档到stream中，
adoquery1.Close;
adoquery1.sql.clear;
adoquery1.sql.Add('select * from t_standarder');
adoquery1.SQL.Add(' where ');
adoquery1.SQL.Add(' id=');
adoquery1.SQL.Add(trim(editcodeid.text));
adoquery1.Open;
// TBlobField(ADOQuery1.FieldByName('word文档')).SaveToStream;
stream:=TADOBlobStream.Create(adoquery1.fieldbyname('word文档') as TBlobField,bmWrite);

问怎么将stream写入临时word文件
要临时的word文件，关闭时，提示会提示保存的。

临时的word文件我已建立好了，
var Doc:OleVariant;
Stream :TADOBlobStream;
begin //aaa
Doc:=CreateOleObject('Word.Application');
Doc.Visible:=True;
Doc.Documents.Add; //新文档

从数据库中已取出word文档到stream中，
adoquery1.Close;
adoquery1.sql.clear;
adoquery1.sql.Add('select * from t_standarder');
adoquery1.SQL.Add(' where ');
adoquery1.SQL.Add(' id=');
adoquery1.SQL.Add(trim(editcodeid.text));
adoquery1.Open;
// TBlobField(ADOQuery1.FieldByName('word文档')).SaveToStream;
stream:=TADOBlobStream.Create(adoquery1.fieldbyname('word文档') as TBlobField,bmWrite);

问怎么将stream写入临时word文件
要临时的word文件，关闭时，提示会提示保存的。

adoquery1.Close;
adoquery1.sql.clear;
adoquery1.sql.Add('select * from t_standarder');
adoquery1.SQL.Add(' where ');
adoquery1.SQL.Add(' id=');
adoquery1.SQL.Add(trim(editcodeid.text));
adoquery1.Open;
TBlobField(ADOQuery1.FieldByName('word文档')).SaveToFile('abc.doc');
adoquery1.close;

//-=============================
begin //aaa
Doc:=CreateOleObject('Word.Application');
Doc.Visible:=True;
Doc.Documents.Open('abc.doc'); //打开文档
....
end;

接受答案了.