[Homo-Fantasmus]

Пробовал подобным образом запустить Acad 2012

Код:

Function GetAcadApplication(Visible: Boolean): IAcadApplication;

var
  v1 : OleVariant;
  begin
  Try
// пытаемся присоединиться к уже запущенной копии AutoCad
    v1 := GetActiveOleObject('AutoCAD.Application.18');
   
  Except
// если не получилось присоединиться, то запускаем новую копию AutoCad
    v1:= CreateOleObject('AutoCAD.Application.18');
    
  end;
// приводим переменную типа OleVariant к типу IAcadApplication
  Result := IDispatch(v1) as IAcadApplication;
  
// далее проверяем, надо ли делать приложение AutoCad видимым
  if Visible then Result.Visible := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FormStyle:= fsStayOnTop;
AcadApp:= GetAcadApplication(true);
end;

но в ответ
Interface NOT Supported!

или "Недопустимая строка с указанием класса"