Error en evento OnExit en TDBEdit

[halcon_rojo]

hola yo de nuevo, no pude dar con la causa del problema pero una solucion fue aumentarle:

Código Delphi [-]
    if not verificaDATO(txtNitv.Text) then
    begin
       ShowMessage('Dato Inválido. ');
       MainForm.txtNitv.SetFocus;
    end;

pero como mi intencion no es la de obigar al usuario a poner un dato valido igual no soluciona mi problema, se me ocurrio pasarle el foco al siguiente TDBEdit y si funciona solo que esta ves el cursor desaparece!. What can I do?