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