AddShape/RemoveShape redraw cell problem

Dear Bruno,

 
I am using latest available version 6.2.3.0 (19/12/2011). But TAdvStringGrid still report version 6.0.3.0
And If i create new project and insert your commands it is working.
But when I add Button2 with this OnClick event
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  advstringgrid1.RemoveShape(2,3);
end;
 
The cell is not repainted if it contain text
 
Radim