procedure TForm1.RemoveSelection1Click(Sender: TObject);
{ Remove selection and fill with paper color. }
var
  iColor: TColor; { Paper color around the hole }
begin
  if ImageEnView.Selected then
  begin
    ImageEnView.Proc.SaveUndoCaptioned('Remove Selected ' + IntToStr(ImageEnView.Proc.UndoCount));
    Undo1.Hint := 'Remove Selected ' + IntToStr(ImageEnView.Proc.UndoCount + 1);
    ImageEnView.Proc.ClearAllRedo;
    { Cut selection }
    ImageEnView.Proc.SelCutToClip(True);
    { Fill the selection with the paper color }
    iColor := clWhite;
    ImageEnView.Proc.Fill(iColor);
    ImageEnView.Update;
   end;
 end
 else
    MessageBox(0, 'Please select an area of the image to remove.', 'No Selection', MB_ICONWARNING or MB_OK);
  end;
end;