一个关于在DEPHI中控制acad的半成品问题(100分)

我正在做一个程序,功能是在用户选定的DWG图片上叠加另一张DWG图.
问题在于使用import命令引入图片总是无效,请大侠指点

源代码如下
procedure TForm1.Button1Click(Sender: TObject);
var
p1 : OleVariant;
Acad, Doc: OleVariant;
scaleFactor:double;
importfile:string;
begin
try
acad := GetActiveOleObject('AutoCAD.Application');//get acad instance
except
on EOleSysError do
acad := CreateOleObject('AutoCAD.Application'); //create a new instance
end;
Acad.visible:= True; //show acad
doc:=Acad.ActiveDocument.Open('E:/4.dwg');//只是基本的dwg图
doc.Layers.Add('TEST');
p1 := VarArrayCreate([0,2], vardouble);
p1[0] := 0.0; p1[1] := 0.0; p1[2] := 0; //point (14330,400,0)
scaleFactor:=1;
importfile:='e:/try.wmf';//这是要叠加上去的图
doc.import (importfile,p1,scaleFactor);//应该是这个import命令
doc.saveas('E:/5.dwg');
acad.quit;
varclear(doc);
varclear(acad);
VarClear(p1);
end;