Impedir salir de un DBEdit si el valor no es válido

[[gluglu]]

Qué método o propiedad puedo utilizar para impedir que el cursor salga de un campo TDBEdit tras comprobar que el dato introducido no es válido?

Tengo un TDBEdit en un Form y solicito al usuario introducir un código. Con el evento OnChange compruebo si el código introducido es válido o no. Si es válido puedo pasar al próximo TDBEdit. Si NO es válido no quiero permitir que salga de ese campo ni con las teclas de edición, ni seleccionando con el ratón otro campo diferente.

Gracias.