Esto no es un evento. Es un procedimiento que supongo que alguien ha programado en un form para "pintar" un recuadro en el canvas de un TImage.
En la parte privada del form defínelo:
Código Delphi
[-]
Procedure Cuadrado (Const X,Y :integer);
Y en la implementación tendrás este código.
Desde algun sitio lo llamarás.
