Metodo para mensajes delphi

primero, Declaramos la funcion antes del type, esto con el fin de solo mandar llamar el procedimiento como msgbox.

Function MsgBox(Texto, Titulo: String; Flags: Word): Integer;

la funcion en si

Function MsgBox(Texto, Titulo: String; Flags: Word): Integer;

var

TextoMost, TituloMost: array[0..300] of Char;

begin{________________________________________________________________
0 S/Botones ->16 Error ->32 Inter ->48 Adev ->64 Info
1 A C---->17 Error ->33 Inter ->49 Adev ->65 Info
2 A R O-->18 Error ->---------->50 Adev ->66 Info
3 S N C-->19 Error ->35 Inter ->51 Adev ->67 Info
4 S N---->20 Error ->36 Inter ->52 Adev ->68 Info
5 R C---->21 Error ->37 Inter ->53 Adev ->69 Info
6 C R Co->22 Error ->38 Inter ->54 Adev ->70 Info
A=Aceptar;C=Cancelar;R=Reintentar;N=No,S=Si;Co=Continuar;O=Omitir
__________________________________________________________________}

StrPCopy(TextoMost, Copy(texto, 0, 299));

StrPCopy(TituloMost, Copy(titulo, 0, 299));

MsgBox := Application.MessageBox(TextoMost, TituloMost, Flags);

end;

y se manda llamar

MsgBox(' Este es el mensaje ','barra de titulo ',48);