Уважаемые мастера, помогите пожалуйста. Я пытаюсь разработать программу, в которой необходимо начертить чертеж в autocad с помощью delphi. Для взаимодействия я использовал исходники, которые выкладываются в статьях, там написано что все должно ыполняться правильно а у меня выводит ошибку 'Project1.exe вызвал исключение класса EOleSysError c сообщением 'Операция недоступна' вот в этой функции в выделенно строке
Function GetAcadApplication(Visible: Boolean): IAcadApplication;
var
v : OleVariant;
begin
Try
v := GetActiveOleObject('AutoCAD.Application');
Except
v:= CreateOleObject('AutoCAD.Application');
end;
Result := IDispatch(v) as IAcadApplication;
if Visible then Result.Visible := True;
end;
как это можно исправить?
Есть новые 
Нет новых [134427 +34][b:0][p:0.001]