Relacion Master Detail

[simon]

Un cordial saludo para todos........

tengo un problemita y es el siguiente:

Tengo una Forma de Pedido de Articulos en el cual utilizo dos tablas una de Pedios y Articulos.

en la primera uso codigoPedigo,Fecha y CodigoCliente, Tambien tengo un DBGrid en lasado al DataSource de la segunda tabla(Articulos) la cual tengo una relacion Master, Detail entre la dos Tablas.

Lo que quiero es q cuando digite el codigo del Articulo en el DBGrib me traiga la Descripcion y el Precio del Articulo. Estoy utilizando la siguiente rutina

Código Delphi [-]
 
procedure TFrm_Pedidos.Tbl_PedidoCodigo_ArticuloChange(Sender: TField);
  var ls_CodigoArticulo:string;
  var ls_codigoPedido:real;
begin
ls_CodigoArticulo := Tbl_Pedido.FieldbyName('Codigo_Articulo').asstring;
ls_CodigoPedido   := Tbl_Pedido.FieldbyName('Precio_Unitario_Articulo').Index;
Qry_Articulo.Close;
with qry_Articulo do begin
with sql do begin
clear;
add ('select * from Articulos ');
add ('select * from Pedidos ');
add ('where Codigo_Articulo = ');
add ('where Precio_Unitario_Articulo = ');
add (''''+ls_CodigoArticulo+'''');
open;
 if recordcount = 0 then
   begin
    ShowMessage('El Codigo no Existe ');
    Abort;
  end;
  if Dts_Articulo.State in [dsinsert,dsedit] then
     Tbl_Pedido.FieldByName('Pescripcion_Articulo').Asstring := Qry_Articulo.FieldByname('Descripcion_Articulo').Value;
//     Tbl_Pedido.FieldByName('Precio_Unitario_Articulo').Asstring := Qry_Articulo.FieldByname('Precio_Unitario_Articulo').Value;
end;
end;
end;