Отключить сообщения Word

[Gregor]

Как отключить ВСЕ сообщения объекта CreateOLEObject('Word.Application') ?
Дело в том что я перебираю все документы в папке и конвертирую их в PDF. Но после конвертации остаются диалоговые окна предлагающие сохранить документы. Как от них избавиться?

procedure TfrmMain.ConvertWordToPDF(aFileName: string);
const
  wdExportFormatPDF = 17;
var
  Doc: OleVariant;
  zFileName: string;
begin
  FWord := CreateOLEObject('Word.Application');
  try
    FWord.DisplayAlerts := false;
    Doc := FWord.Documents.Open(aFileName, false, true);
    Doc.ExportAsFixedFormat(ExtractFilePath(ParamStr(0)) + 'Data\'  + FormatDateTime('yyyymmddhhnnsszzz', Now) + '.pdf', wdExportFormatPDF);
    Doc := Unassigned;

  except

  end;
end;

[Serge_Bliznykov]

а попробуйте так закрывать документ:

Const wdDoNotSaveChanges = 0;
...

try
    Doc := FWord.Documents.Open(aFileName, false, true);
    Doc.ExportAsFixedFormat(ExtractFilePath(ParamStr(0)) + 'Data\'  + FormatDateTime('yyyymmddhhnnsszzz', Now) + '.pdf', wdExportFormatPDF);
finally
   Doc.close(wdDoNotSaveChanges); 
   FWord.Quit;
   Doc := Unassigned;
   FWord := Unassigned; 
end;

если это не поможет, то поиграйтесь с советами отсюда: (StackOverflow):

FWord.Quit wdDoNotSaveChanges;

FWord.NormalTemplate.Saved = True

FWord.DisplayAlerts := false;
FWord.Quit;