辣手的问题啊，请各位大侠来帮忙啊！

Question

代码：  
if (OpenDialog1.Execute) then
  begin
    Wordapp:=CreateOleObject('Word.Application');
    OpenDialog1.Filter:='*.html|*.htm';
    Doc:=Wordapp.documents.open(OpenDialog1.FileName);
    try
    Doc.saveas('C:\tmp.rtf',wdFormatRTF);
    finally
    Wordapp.quit;
    Doc:=VarNull;
    Wordapp:=VarNull;
    end;
    ADOQry_xsax19.edit;
    ADOQry_xsax19HDESCR.LoadFromFile('C:\tmp.rtf');
  end;
前面的都没有问题，只是在Doc.saveas('C:\tmp.rtf',wdFormatRTF)的时候，我没有办法判断它是否结束，因为它不等待SAVEAS完成，就执行下面的了，导致在执行ADOQry_xsax19HDESCR.LoadFromFile('C:\tmp.rtf')系统报错！各位，有什么办法判断Doc.saveas('C:\tmp.rtf',wdFormatRTF)这动作已经结束啊？

Answer 1

{...}
try
  Doc.saveas('C:\tmp.rtf',wdFormatRTF);
finally
  if not VarIsEmpty(WordApp) then
  begin
    WordApp.DisplayAlerts := False;
    WordApp.Quit;
    WordApp := Unassigned;
    Doc := Unassigned;
  end;
end;

Answer 2

cronuz给chinaluo6捐献了23可用分;chinaluo6收到了：20可用分既然我没有幇你解决问题、还是把可用分還給你、無功不受禄(~_~)
你可以重新提问。