Delphi - Mensaje Personalizados (Solucion)

Saludos, quizas esto les pueda ayudar para los que quieren mostrar mensajes personalizado.
No me quiero robar los creditos lo baje de este link http://www.ajpdsoft.com/modules.php?name=Content&pa=showpage&pid=161

A continuación os mostramos algunas funciones y procedimientos para mostrar mensajes personalizados utilizando la función "application.MessageBox" que permite personalizar el título del mensaje, así como el texto y los botones a mostrar. Esta función también devuelve el botón pulsado para obrar en consecuencia:

//mensaje de error, con el botón "Aceptar"
procedure msError (mensaje, titulo : String);
begin
application.MessageBox(pchar(mensaje),
pchar(titulo), (MB_OK + MB_ICONSTOP));
end;

//mensaje de información, con el botón "Aceptar"
procedure msInfo (mensaje, titulo : String);
begin
application.MessageBox(pchar(mensaje),
pchar(titulo), (MB_OK + MB_ICONINFORMATION));
end;

//mensaje de confirmación, con los botones Sí/No, devuelve True si se pulsa "Sí"
//el botón por defecto será "Sí"
function msSi (mensaje, titulo : String) : boolean;
begin
if application.MessageBox (pchar(mensaje),
pchar(titulo), (MB_YESNO + MB_ICONQUESTION)) = IDYES then
result := true
else
result := false;
end;

//mensaje de confirmación, con los botones Sí/No, devuelve True si se pulsa "Sí"
//el botón por defecto será "No"
function msSin (mensaje, titulo : String) : boolean;
begin
if application.MessageBox (pchar(mensaje),
pchar(titulo), (MB_YESNO + MB_DEFBUTTON2 + MB_ICONQUESTION)) = IDYES then
result := true
else
result := false;
end;

//mensaje de exclamación, con los botones Aceptar/Cancelar, devuelve True si se pulsa "Aceptar"
//el botón por defecto será "Aceptar"
function msOK (mensaje, titulo : String) : boolean;
begin
if application.MessageBox (pchar(mensaje),
pchar(titulo), (MB_OKCANCEL + MB_ICONWARNING)) = IDOK then
result := true
else
result := false;
end;

//mensaje de exclamación, con los botones Aceptar/Cancelar, devuelve True si se pulsa "Aceptar"
//el botón por defecto será "Cancelar"
function msOKn (mensaje, titulo : String) : boolean;
begin
if application.MessageBox (pchar(mensaje),
pchar(titulo), (MB_OKCANCEL + MB_DEFBUTTON2 + MB_ICONWARNING)) = IDOK then
result := true
else
result := false;
end;

//mensaje de exclamación, con el botón Aceptar
procedure msAtencion (mensaje, titulo : String);
begin
application.MessageBox(pchar(mensaje),
pchar(titulo), (MB_OK + MB_ICONWARNING));
end;