Problema de diseño y con canvas.

[rojo raton]

Estoy intentando diseñar una clase TPintor que tenga un método PintarRectangulo() que reciba como parámetro un objeto gráfico sobre el cual se pintará el rectangulo. De antemano Tpintor no sabrá que tipo de objeto recibirá como parámetro, podría ser un Timage,Tlabel,TForm,etc. alguno que implemente el canvas. He visto que esos derivan el Tcanvas de la clase TgraphicControl, intenté usar esa clase en TPintor para trabajar con el canvas pero no me deja hacer lo siguiente

Código Delphi [-]
var
  G : TgraphicControl;
begin
   G:= TgraphicControl.Create(nil);
   g.canvas //me dice "undeclared identifier: canvas"
   g.Free;
end;

identificador no declarado, como si Tgraphiccontrol no conociese al canvas.
No se si se entiende el problema que quiero resolver. Un saludo.