MessageBox

[Julià T.]

como delphi.com.ar, yo también me hice mis funciones para simplificar

Const
SInfo='Información';
SError='Error';

//muestra un mensaje de error
function ShowError(Cad:string):boolean;
begin
Application.MessageBox(Pchar(Cad),SError,MB_OK + MB_ICONERROR);
Result:=false;
end;

//muestra un mensaje de información
function ShowInfo(Cad:string):boolean;
begin
Application.MessageBox(Pchar(Cad),SInfo,MB_OK + MB_ICONEXCLAMATION);
Result:=false;
end;