procedure TForm_Reports.BtnCreateClick(Sender: TObject);
var WordApp : OleVariant;
begin
try
if not VarIsEmpty(WordApp) then
WordApp.Quit;
WordApp := CreateOLEObject('Word.Application');
except
MessageDlg('你的计算机可能没有安装MS Excel,请检查并安装后再运行本程序。', mtError, [mbOk], 0);
Abort;
end;