Error with ClearRowSelect, DisjunctRowSelect

We just updated our Component Pack subscription and our application started to have a lot of GridIndexOutOfRange exceptions.
I managed to pinpoint error to ClearRowSelect, DisjunctRowSelect=true and RowSelect=true combination.

If I use ClearRowSelect before setting grid RowCount I'll get an exception, but just first time after application launch. New RowCount needs to be larger than previous in this case.

If I set RowCount before ClearRowSelect, I don't get the exception right away. But then when I click any row in grid I'll get the same exception.

I tried to set RowSelect[index] to false on all rows, but than again I'll get exception when I'll click any row.

Any workarounds? Using DisjunctRowSelect without RowSelect seems to be working, but is kind of an ugly solution.

Minimal example to reproduce is to add a columngrid to form and set DisjunctRowSelect=true and RowSelect=true. Then add one edit and two buttons.

Event handlers
procedure TForm1.AdvColumnGrid1GetDisplText(Sender: TObject; ACol,:
  ARow: Integer; var Value: string);
  if (ARow > 0) and (ACol > 0) then
    Value := Format('[%d : %d]', [ARow, ACol]);

procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.Button2Click(Sender: TObject);
  AdvColumnGrid1.RowCount := StrToInt(Edit1.Text);

We have traced & solved this issue. The next update will address this.