Определение активного чертежа в ACAD.

...
private
   Lastdoc : String;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  v : OleVariant;
begin
  Try
// пытаемся присоединиться к уже запущенной копии AutoCad
    v := GetActiveOleObject('AutoCAD.Application');
    AcadDocument1.ConnectTo((IDispatch(v) as IAcadApplication).ActiveDocument);
  Except
// если не получилось присоединиться, то запускаем новую копию AutoCad
    AcadDocument1.Connect
  end;
// сразу заполняем вспомогательную переменную для последующей проверки
  LastDoc:= AcadDocument1.Path+'\'+AcadDocument1.Name;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
  v : OleVariant;
begin
  try
    if LastDoc <> AcadDocument1.Application.ActiveDocument.Name then
    try
      AcadDocument1.Disconnect;
      v := GetActiveOleObject('AutoCAD.Application');
      AcadDocument1.ConnectTo((IDispatch(v) as IAcadApplication).ActiveDocument);
// при этом обновляем дополнительную переменную
      LastDoc:= AcadDocument1.Path+'\'+AcadDocument1.Name;
    except
    end;
  except
  end;
  Caption:= LastDoc;
end;
...

function GetActiveDWG : String;
var
  AcadAppl, AcadDoc : Variant;
begin
  try AcadAppl:=GetActiveOLEObject('AutoCAD.Application') except Result:=''; Exit end;
  try AcadDoc:=AcadAppl.ActiveDocument except Result:=''; Exit end;
  try Result:=AcadDoc.Name except Result:='-'; Exit end;
end;