procedure ShowProgress(const Msg: String; AnimationStyle: TAnimationStyle=asNone; AnimationDuration: Integer=0)