[vtdeleon]

Saludos

Algo chapusero que he hecho es esto con el componente Application y usando su evento OnException, teniendo la propiedad MaxValue con el rango requerido.

Código Delphi [-]
    if pos('allowed range',E.Message)>0 then
      ShowMessage('tu mensaje en espanol')
    else
      MessageDlg(E.Message, mtError, [mbOK], 0);

No se me ocurre mas nada