EasyMap VCL
TEasyMap.OnAddObject
property OnAddObject: TAddObjectEvent;
Description
Event occurs when new object added to layer.

procedure TForm1.EasyMap1AddObject(Sender: TEasyMap;

  MapObject: TCustomMapObject);
var
 str: String;
begin
 if MapObject.Fields.Count > 0 then str := MapObject.Fields[0].AsString else str := '???';
 ListBox1.Items.AddObject(str, MapObject);
end;
  
procedure TForm1.EasyMap1DelObject(Sender: TObject);
var
 idx: Integer;
begin
 idx := ListBox_Objects.Items.IndexOfObject(Sender);
 if idx <> -1 then ListBox_Objects.Items.Delete(idx);
end;