imgEdit.Proc.SaveUndo('FX:' + frmFX.FxUndoName, ieuFullLayer); //ieuImage
  imgEdit.Proc.ClearAllRedo;
  imgEdit.IEBitmap.Assign(frmFX.imgView.IEBitmap);

procedure TfrmMain.btnUndoClick(Sender: TObject);
begin
  imgEdit.Proc.Undo(True);
  CalcImgInfo;
  UpdateGUI;
  layMain.Update;
end;

procedure TfrmMain.btnRedoClick(Sender: TObject);
begin
  imgEdit.Proc.Redo(True);
  CalcImgInfo;
  UpdateGUI;
  layMain.Update;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  bmp: TIEBitmap;
  i: Integer;
begin
  ImageEnView1.Proc.UndoLimit := 50;
  ImageEnView1.IO.LoadFromFile( 'D:\im.jpg' );

  for i := 1 to 9 do
  begin
    ImageEnView1.Proc.SaveUndo('undo ' + i.ToString, ieuImage );
    bmp := TIEBitmap.Create( 'D:\Testing_Multimedia\Numbers\' + i.ToString + '.png' );
    ImageEnView1.IEBitmap.Assign( bmp );
    ImageEnView1.Update();
    bmp.Free();
  end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  ImageEnView1.Proc.Undo(True);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  ImageEnView1.Proc.Redo(True);
end;