Crear ventana de error DELPHI

[[seoane]]

Para mostrar un mensaje de error puedes usar el clásico ShowMessage:

Código Delphi [-]
ShowMessage('Teclea bien hombre ...');

Este se muestra en una ventana con un botón que pone 'OK'. Pero si quieres que el botón se muestre en castellano y aparezca un bonito icono de error podemos usar la función Messagebox:

Código Delphi [-]
procedure MostrarError(Titulo, Mensaje: string);
begin
  Messagebox(Application.Handle,PChar(Mensaje),PChar(Titulo),MB_OK or MB_ICONERROR);
end;

// Por ejemplo
MostrarError('Mensaje de error','Teclea bien hombre ...');