Bug in procedure TAdvStringGrid.RemoveAllButtons;

VCL TMS VCL UI Pack
1

Hello,
I use Delphi 11 Update 3 on Windows 11, and TMS VCL UI Pack 12.2.0
I have found a bug in the TAdvStringGrid component when I add buttons in cells in a grid, then hide columns and remove all buttons.
I send you a ZIP attchment in which you will have the source files of the Demo, and 2 GIF illustrating the bug and a possible correction

Possible correction of the procedure

procedure TForm1.RemoveAllButtonsFixedClick(Sender: TObject);
var
  i,j: Integer;
begin
  // It's a copy of the procedure TAdvStringGrid.RemoveAllButtons, with a possible correction
  for i := 0 to MyAdvGrid.AllColCount - 1 do   {AllColCount instead of ColCount}
    for j := 0 to MyAdvGrid.AllRowCount - 1 do    {AllRowCount instead of RowCount}
    begin
      if MyAdvGrid.HasButton(i,j) then
        MyAdvGrid.RemoveButton(i,j);
    end;
end;

Bug TMS AdvStringGrid Buttons.zip (193.1 KB)