procedure TForm1.ImageEnViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_DELETE:
      begin
        if ImageEnView.LayersEditingLayer > -1 then
          Exit;
        ImageEnView.LayersRemove(ImageEnView.LayersCurrent);
        ImageEnView.LayersDrawTo(ImageEnMView1.IEBitmap);
        ImageEnMView1.UpdateImage(ImageEnMView1.SelectedImage);
        ImageEnMView1.Update;
        ImageEnView.Proc.ClearAllUndo;
        UpdateGUI;
        UpdateLayers;
        UpdateStatusBar;
      end;
  end;
end;

// When closing, check if user is editing a layer and prompt to save the changes
procedure Tfmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ImageEnView1.LayersEditingLayer > -1 then
    if MessageDlg( 'Save changes to text?', mtConfirmation, [ mbYes,mbNo ], 0 ) = mrYes then
      ImageEnView1.LayersCancelEditor( True );
end;