Called to refresh the button on screen, override it in your descendants or it will crash !
procedure Repaint