Override (MessageDlg)

[atani123]

Sabe alguien como se puede sobreescribir alguna de las funciones basicas de Delphi.

Mi intencion es sobreescribir la funcion MessageDlg para insertarle alguna instruccion. Por ej:

Código Delphi [-]
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word; Override
  Begin
    Msg := Uppercase( Msg)
    Inherited;
  End;

Ya se que esto no funciona y que tampoco es posible hacer, es simplemente para que veais lo que quiero hacer. ¿Alguna idea?