求助改善Delphi调用olevariant出现“被呼叫方拒绝接收呼叫”

菜鸟请教各位我使用delphi操作AutoCAD时，在设置图层时定义layer:OleVariant;如果频繁的使用layer的话，就会出现“被呼叫方拒绝接收呼叫”的警告，请问各位有什么办法能避免这个情况的发生。（unAssigned释放OleVariant也无效。加sleep()延时等待效果也不明显我设置1500毫秒有时也会“被呼叫方拒绝接收呼叫”）而且这种情况发生非常随机性。请问各位如何才能解决这个问题？

uses

Comobj,activeX;

var

cad,caddoc,layer:OleVariant;

try

cad:=GetActiveOleObject('AutoCAD.Application');

except

cad:=CreateOleObject('AutoCAD.Application');

end;

cad.visible:=true;//显示CAD

caddoc:=cad.ActiveDocument;

//使用layer不能连续太频繁

layer:=caddoc.layers.add('1');

layer.color:=1;

layer:=caddoc.layers.add('2');

layer.color:=2;

layer:=caddoc.layers.add('3');

layer.color:=3;

layer:=caddoc.layers.add('4');

layer.color:=4;

layer:=caddoc.layers.add('5');

layer.color:=5;

layer:=caddoc.layers.add('6');

layer.color:=6;

layer:=caddoc.layers.add('7');

layer.color:=7;

layer:=caddoc.layers.add('8');

layer.color:=8;