EasyMap VCL
TEasyMap.OnAddSelection
property OnAddSelection: TAddSelectionEvent;
Description
Event occurs when someone selects map object.

procedure TForm1.EasyMap1AddSelection(Sender: TEasyMap;
  MapObject: TCustomMapObject);
var
 str: String;
begin
 if MapObject.Fields.Count > 0 then str := MapObject.Fields[0].AsString else str := '???';
 ListBox_Selection.Items.AddObject(str, MapObject);
end;