高手帮忙：delphi+mapx图元自动标注问题！急急急！ ( 积分: 100 )

大家都还记得mapx的那个例子吧，关于标注一个小车的那个代码如下：
procedure TMDIChild.FormActivate(Sender: TObject);
var
unusedVt: OleVariant;
MyFont: TFont;
begin

TVarData(unusedVt).vType := varError;
lyrMyLayer := Map1.Layers.CreateLayer('Cars', unusedVt, 1,unusedVt,unusedVt);
Map1.Layers.AnimationLayer := Map1.Layers.Item(lyrMyLayer.name);
Map1.CreateCustomTool(PLOT_VEHICLE_TOOL, miToolTypePoint,
miSizeCursor, miSizeCursor, unusedVt);
MyFont := TFont.Create;
OleFontToFont(Map1.DefaultStyle.SymbolFont, MyFont);
MyFont.Size := 24;
MyFont.Name := 'MapInfo Transportation';
Map1.DefaultStyle.SymbolCharacter := 66;
end;




能不能实现一个这样的功能：从表的地方传给它经纬度参数，点某一按钮，自动标注，然后循环执行，直到标完为止，各位帮忙，实在不行给个思路，谢谢！