Crear un nuevo objeto que utilice a Canvas

Un saludo
Estoy haciendo una aplicación y necesito crear un objeto que pueda dibujar cuando lo cree, ejemplo,
type
TRectangulo = class
procedure Dibuja(X1, Y1, X2, Y2 : Integer);
end;
procedure TRectangulo.Dibuja(X1, Y1, X2, Y2: Integer);
begin
Canvas.Rectangle(X1, Y1, X2, Y2);
end;
var
    Rectangulo : TRectangulo;
begin
    Rectangulo:=TRectangulo.create;
    Rectangulo.Dibujar;
end;
Lo que sucede es que me da un error al utilizar canvas... Me podrías ayudar