Ayuda con procedimiento en programa de dibujo

[Panteon]

Procedure TForm1.Cuadrado (Const X,Y :integer);
Begin
With Image1.Canvas Do Begin
Pen.Mode := pmNotXor;
MoveTo (Origen.X,Origen.Y);
Rectangle (Origen.X,Origen.Y,Punto.X,Punto.Y);
MoveTo (Origen.X,Origen.Y);
Rectangle (Origen.X,Origen.Y,X,Y);
end; //Final del With Image1.Canvas
end;

En el form, no se como acceder a este tipo de procedimiento. No
Sale en ningun lado de los eventos del Form.

Ayuda?