procedure MessageDlg(const Msg: String; const DlgCaption: String; DlgType: TMsgDlgType; const Buttons: TMsgDlgBtns; DefaultButton: TMsgDlgBtn; MsgDlgResult: TMsgDlgResultEvent=nil; DlgClose: Boolean=False; AnimationStyle: TAnimationStyle=asNone; AnimationDuration: Integer=0)