Valor maximo de un campo

[jafera]

Buenas a todos.

Tengo una pequeña duda a ver si alguien me puede encender una bombilla que me alumbre.

En una tabla Firebird 1.5, tengo 35 campos numericos cuyo valor debe estar comprendido entre 0 y 5 ambos inclusive.

En el MinValue he puesto valor 0 y en el MaxValue 5, con lo que si introduzco un valor distinto a este rango me lanza un aviso de Firebird advirtiendome del error de valores.

Este comportamiento para mi es correcto aunque el mensaje que sale esta en ingles y me gustaria poder verlo en la lengua de Cervantes, es posible?

Tambien me gustaria que al dar Ok al error, se borrara el valor erroneo y mandara el foco al edit en cuestion para volver a teclear el valor.

Otra opcion que se me ocurre es esta:

Código Delphi [-]
 
procedure TF_ModulDades.PuntuacionsPV11Change(Sender: TField);
begin
        If PuntuacionsPV11.Value > 5 then
        begin
                ShowMessage ('El valor tiene que ser igual o menor que 5');
                PuntuacionsPV11.Clear;
                PuntuacionsPV11.FocusControl;
        end;
end;

Es esto correcto o alguien tiene alguna sugerencia?

Tambien podria poner una excepcion?, si es asi como la manejaria?

Gracias a todos y saludos

Josep