EasyMap VCL
TEasyMap.OnBeforeRemoveObject
property OnBeforeRemoveObject: TRemoveObjectEvent;
Description
Event occurs when map object is about to be deleted.

procedure TForm1.EasyMap1BeforeDelObject(Sender: TEasyMap;
  MapObject: TCustomMapObject; AllowDelete: Boolean);
begin
 AllowDelete := MessageDlg('Would you like to delete selected object',), mtConfirmation, [mbYes    , mbNo]    , 0) = mrYes;
end;