OleContainer->dwg

Здравствуйте!
Чегой-то я не знаю видимо.
У меня программа - дилог. окно, в которой есть OleContainer1 & Button1
OleContainer1=acad document
procedure Button1Clic ( ... )
...
begin
  for i := 1 to 30 do begin
    olecontainer1.run;
    acaddoc := olecontainer1.OleObjectIntreface as AcadDocument
    acaddoc.application.zoomextents;
    acaddoc.close ( true, 'c:\tmp\1.dwg' );
  end;
end;
вот такой вот ПРИМЕР не работает
раза через 3-4 вылетает - "интерфейс не поддерживается" или
"главное окно акада невидимо"