procedure TForm1.FormCreate(Sender: TObject);
  // Set AutoUndo to False;
  ImageEnView1.Proc.AutoUndo := False;
  // The UndoLimit default is only 5 so only 5 undos are possible so
  // increase the UndoLimit  
  ImageEnView1.Proc.UndoLimit := 99;
end;

procedure TForm1.Cut1Click(Sender: TObject);
// SaveUndo then SelCutToClip
begin
  ImageEnView1.Proc.SaveUndoCaptioned('Cut ' + IntToStr(ImageEnView1.Proc.UndoCount + 1));
  Undo1.Hint := 'Cut ' + IntToStr(ImageEnView1.Proc.UndoCount + 1);
  ImageEnView1.Proc.SelCutToClip(True);
  ImageEnView1.Update;
end;

procedure TFormMain.Undo1Click(Sender: TObject);
// undo the last change
begin
  // Save in Redo list
  ImageEnView1.Proc.SaveRedo();
  ImageEnView1.Proc.Undo;
  ImageEnView1.Proc.ClearUndo;
  Undo1.Enabled := ImageEnView1.Proc.CanUndo;
  Redo1.Enabled := ImageEnView1.Proc.CanRedo;
end;