Свойства атрибутов блока

procedure TForm1.Button1Click(Sender: TObject);
var Acad, AcadDoc, Blk, pt, Attr: OLEVariant;
    ObjBlk: IDispatch;
    str: string;
    i: integer;
begin
  try
    Acad := GetActiveOLEObject('AutoCAD.Application');
    AcadDoc := Acad.ActiveDocument;
    Acad.Visible := True;
    AcadDoc.Utility.GetEntity(ObjBlk, pt, 'Выбери блок:');
    blk := ObjBlk;
    str := blk.ObjectName;
    attr:= blk.GetAttributes;
    for i := 0 to VarArrayHighBound(attr,1) do begin
      str := attr[i].TagString;
      MessageDlg('Tag='+str, mtWarning, [mbOk], 0);
      if str = 'NAME2' then attr[i].TextString := 'Aleksei';
    end;
  except
    on EOleException do MessageDlg('Нет связи с AutoCAD!',mtWarning,[mbOk], 0);
    on EOleSysError do MessageDlg('Операция недоступна!',mtWarning,[mbOk], 0);
    on EOleError do MessageDlg('Незагружен AutoCAD!', mtWarning, [mbOk], 0);
  end;
end;