procedure ShowMessage(const Msg: String; const DlgCaption: String=''; AnimationStyle: TAnimationStyle=asNone; AnimationDuration: Integer=0)