如果是选择的话
set ftr =map1.layers.item(1).selection.item(1)

如果不是用选择工具，只是用鼠标点某处：
以下为我的一个程序中的一段代码：

procedure TFrmMain.Map1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  MapX: Double;
  MapY: Double;
  XX, YY: single;
  Pnt: CMapXPoint;
  fs: CMapXFeatures;
  Pnt: CMapXPoint;
  fs: CMapXFeatures;

begin
    pnt := CoPoint.Create;
    XX := x; //强制转换
    YY := y;
    Map1.ConvertCoord(XX, YY, MapX, MapY, miScreenToMap);
    Pnt.Set_(MapX, MapY);
    fs := Map1.Layers.item(1).SearchAtPoint(Pnt);
   ....
end;

好，太帅了！问题彻底解决~~
thanks

                Set F = Map1.FeatureFactory.CreateRegion(Points, Map1.DefaultStyle)
                加上以下语句:

Set fNew = Map1.Layers(ToolBars.Combo3.ListIndex + 1).AddFeature(F)
                 fNew.Update