Override (MessageDlg)

[[maeyanes]]

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...