public
  { Public declarations }
  AHobj: Integer;
  ACancelObjectCreation: boolean;
 end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  AHobj := -1;
  ACancelObjectCreation := False;
end;

procedure TMainForm.ImageEnVect1AfterDrawObject(Sender: TObject; hobj: Integer;
  destination: TIEBitmap; destCanvas: TIECanvas; destRect: TRect;
  drawingAlpha: Boolean; var handled: Boolean);
var
  q: Integer;
begin
  for q := -1 to ImageEnVect1.SelObjectsCount - 1 do
  begin
    if q >= 0 then
      AHobj := ImageEnVect1.SelObjects[q];
    ImageEnVect1.Update;
    break;
  end;
  if (ACancelObjectCreation) and (AHobj > -1) then
  begin
    ImageEnVect1.RemoveObject(AHobj);
    ImageEnVect1.Update;
    if AHobj = 0 then
      ImageEnVect1.DeSelect;
    AHobj := -1;
  end;
end;

procedure TMainForm.ImageEnVect1NewObject(Sender: TObject; hobj: Integer);
begin
  AHobj := hobj;
  ACancelObjectCreation := False;
  Form1.ShowModal;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ModalResult = mrCancel then
    MainForm.ACancelObjectCreation := True
  else
    MainForm.ACancelObjectCreation := False;
end;