[[BlueSteel]]

en el evento onKeyPress del TxtCodigo puedes poner esto

Código Delphi [-]
If Key =#13 Then  
   Begin
             BuscaArticulo;
             btn_Agrega.SetFocus;  
   End;

en el evento del boton puedes poner algo

Código Delphi [-]
// Agrega articulo al Grid....
...
TxtCodigo.Clear
TxtCodigo.SetFocus;

espero que asi sea

Salu2