Otra alternativa es, si tu Delphi soporta los class helpers, es esto:
Código Delphi
[-]
type
TStringGridHelper = class helper for TStringGrid
public
procedure Paint; override;
end;
Luego, podes implementar el metodo Paint;
Los class helper se agregaron justamente para no seguir utilizando el "truco" de la
interposer class y resolver este tipo de problemas (acceder a funcionalidad protegida de una clase) de una manera mas elegante