Fórum paradox - consulta em tabela #469865

Tenho a seguinte estrutura:

procedure Tfrm_Despesa03.Edit1Enter(Sender: TObject);
begin
Edit1.Clear;
end;

procedure Tfrm_Despesa03.Edit1Change(Sender: TObject);
begin
Dtm_Secre.qRubrica.Locate('CODIGO', Edit1.Text,[])
end;

procedure Tfrm_Despesa03.Edit1Exit(Sender: TObject);
begin
CurrencyEdit1.SetFocus
end;


Acontece que digitando um código inexistente, esta passando para o campo seguinte, gerando entradas erradas.

Gostaria de fazer um teste na entrada do dado digitado onde caso o codigo não seja localizado, retorne à entrada. Algo parecido com:
--->>> if ( Dtm_Secre.qRubrica.Locate('CODIGO', Edit1.Text,[])) NÃO SEJA LOCALIZADO then
Edit1.SetFocus

por favor me ajudem

att
gilberto