dibujar rectangulo en el canvas de un control

[gulder]

hola foro como andan espero que bien mi pregunta es la siguiente este procedure lo encontre en los demos de delphi y lo que hace es pintar un rectangulo en el canvas de un image

procedure TForm1.DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);
begin
  with Image.Canvas do
  begin
    Pen.Mode := AMode;
    case DrawingTool of
      dtLine:
        begin
          Image.Canvas.MoveTo(TopLeft.X, TopLeft.Y);
          Image.Canvas.LineTo(BottomRight.X, BottomRight.Y);
        end;
      dtRectangle: Image.Canvas.Rectangle(TopLeft.X, TopLeft.Y,
BottomRight.X,BottomRight.Y);
          end;
  end;
end;

lo que yo quiero es utilizar este metodo para dibujar en el canvas de unos componentes que creo en tiempo de ejecusion lo unico que me interesa es saber que parametro le envio al metodo para que no solo me dibuje en el canvas del imagen sino de cualquier componente que permita dibujar en el, como un panel etc. Yo se que el metodo debo modificarlo para hacer lo que pido pero no se que parametro colocar donde hace referencia al componente grasias de antemano gulder