[marcoszorrilla]

Puedes utilizar el evento OnChange del campo correspondiente al código, para una vez encontrado el mismo añadir lo que corresponda, como en este ejemplo:

Código Delphi [-]
procedure TDmDip.LinAlbaCodArticuloChange(Sender: TField);
begin
DmDip.Produ.IndexName:='Codigos';

  If DmDip.Produ.FindKey([DmDip.LinalbaCodArticulo.value]) = true then
  begin
  DmDip.Linalba.Edit;
  DmDip.LinalbaProducto.Value:=DmDip.ProduProducto.Value;
  DmDip.LinAlbaPrecio.Value:=DmDip.ProduPVenta.Value;
  DmDip.LinalbaIva.Value:=DmDip.ProduIVA.Value;
  end
  else
  begin
  Application.MessageBox('Código de producto no encontrado','Atención',mb_Ok+mb_IconQuestion);
  end;
end;

Un Saludo.