Acad:=GetActiveOleObject('AutoCAD.Application') as IAcadApplication; IsOLEObjectInstalled('AutoCAD.Application')