TAnimationCurve.Calculate
TAnimationCurve
procedure
Calculate(Duration: Integer);
Unit
TeeAnimate