Как подавить сообщения компаса?

[Йцукеныч]

Программа на Delphi7. Открываю Компас и фрагмент чертежа, изменяю его.
var Kompas:KompasObject;
     doc:ksDocument2D;
begin
 Kompas:=KompasObject(CreateOleObject('Kompas.Application.5'));
 doc:=ksDocument2D(Kompas.Document2D);
 doc.ksOpenDocument(FileName, false );
 ................................................................
 
Далее, если нужно сохранить  -сохраняю и закрываю Компас. Однако если я не хочу сохранять, при нажатии кнопки "Отменить" просто закрываю Компас:
Kompas.Quit;
  Он перед закрытием спрашивает "Сохранить этот документ или нет", а мне это не надо.
Если я перед этим закрываю еще и документ а потом выхожу:
 doc.ksCloseDocument;
 Kompas.Quit,
 то выдает другое сообщение : "Сообщение библиотеки", "Документ закрыт без сохранения".
 Вопрос в том, как избежать этих сообщений?

[333]

doc.ksCloseDocument;
kompas.ResultNULL; // сбросить ошибку
kompas.Quit;

[Йцукеныч]

kompas.ksResultNULL; // сбросить ошибку

Большое спасибо!