ciclo infinito con enter.. como lo soluciono ?

[Rofocale]

Código Delphi [-]
If (Key = VK_Return) then
               begin
                  txtcodigo.Text:= (''+idciu+'');
                  BuscaArticulo;
                  codebusqgrid.Visible:=False;
              end;

en buscar articulo al final tengo buttonagregar.setfocus para que se situe en el boton y poder yo apretar enter y agregar el articulo sin necesitad de utilizar el mouse.. pero el problema es que la rutina ahi como se ve es que si apreto enter me busca un articulo dependendiendo de que si txtcodigo ya tiene el codigo que se paso..

y a la vez cuando aprieto el boton con enter el articulo se agrega al grid normal pero vuelve a buscar el articulo y a posicionar el boton en focus..

ya que estoy utilizando el enter para las 2 cosas..

no se como hacerlo para que me funcione bien ... como lo haria ?

cuando tengo el codigo en el txt aprieto enter me busca el articulo y se posiciona el focus en el boton y de ahi aprieto enter y este es agregado al grid y al final se limpian los txt y el focus vuelve al edit.txt


alguien me ayuda ?