Layer.search()方法，查出图元，如何用zoomto放大，谢谢！ (50分)

Layer.search()方法，查出图元，如何用zoomto放大，程序如下：
var
FoundObj : Variant;
lyr : Variant;
begin

FoundObj := lyr.Search('id="'+Edit1.Text+'"');
lyr.Selection.Replace(FoundObj);
用
currentMap.ZoomTo(strtoint(Edit2.Text),FoundObj.CenterX,FoundObj.CenterY);
Method 'CenterX' not supported by automation object'
请大家相助

这样写是不行的。
我是这样做的：
定义一个Features := lyr.Search('id="'+Edit1.Text+'"');
然后用一个Feature :=Features.Item(1);
//在查询结果数为1的情况下
然后currentMap.ZoomTo(strtoint(Edit2.Text),Feature.CenterX,Feature.CenterY);

谢谢
一句话提醒梦中人
接分喽