怎样使用Delphi对AutoCAD进行操作啊，我写的代码老报错，谁能帮帮忙啊

var
AcadApp: OleVariant;
AcadDoc: OleVariant;
AcadMoSpace: OleVariant;
AcadObj: OleVariant;
i: integer;
begin
  try
   AcadApp:=GetActiveOleObject('AutoCAD.Application');
  except
  AcadApp:=CreateOleObject('AutoCad.Application');
  end ;
AcadDoc := AcadApp.ActiveDocument;
AcadMoSpace := AcadDoc.ModelSpace;
Acadobj:=AcadDoc.SelectionSets.Add('Color');
Acadobj.SelectOnScreen;
for i := 0 to Acadobj.Count-1 do
begin
Acadobj.Item(i).color:=random(255);
end;
end;
我想使我选择的图元的颜色发生变化，但老是报错‘操作无法使用‘，谁能帮我解决一下这个问题啊，谢谢了。