Evitar mensajes de Error de Firebird

[[mateamargo]]

en el onbeforepost
hice lo de

for i:=0 to Dataset.fieldcount -1 do
 if Dataset.fields[i].requiered........
   le puse el mensaje showmessage('el campo '+dataset.fields[i].name +' contiene un valor no válido')
    exit;

Ahora bien como le puedo poner el foco al componente dentro del formulario que estoy trabajando que contiene el campo que tiene el valor inválido ?
Y despues del mensaje personalizado como hago para que la base no me tire igual el mensaje de error ?????
Perdona mi ignorancia.
Desde ya muchas gracias por tu respuesta
Saludos
Claudio