TAnimationEndEvent
type
TAnimationEndEvent =
procedure
(Sender:
TTeeAnimation
; Var FreeAnimation: Boolean)
of object
;
Unit
TeeAnimate