TSpriteDuoEvent Delegate

Unit: uSpriteCercle
type TSpriteDuoEvent = procedure(Sender: TSpriteCercle; Other: TSpriteCercle) of object