procedure ShowMsgDlg (const msg : string; aType : TMsgDlgType); begin MessageDlg (msg, aType, [mbOK], 0); end;