Lo que buscas hacer lo puedes hacer tan fácil como:
Código Delphi
[-]
MessageDlg(UpperCase(Msg), DlgType, Buttons, HelpCtx);
Usando tu solución, lo puedes hacer de esta forma, la cual no necesita declarar una clase a la cual no le estás dando ningún uso:
Código Delphi
[-]
unit MyDialos;
interface
uses
Dialogs;
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
implementation
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
begin
Result := Dialogs.MessageDlg(UpperCase(Msg), DlgType, Buttons, HelpCtx)
end;
end.
Saludos...