Consultar el campo precio mediante el codigo de un producto

[GABOCABALLERO]

Si, eso mismo pero como realizar esa consulta de precio al introducir el codigo de articulo es lo que no me sale, ya he probado varias formas y ninguna me resulta:

procedure TForm2.BitBtnProcesarClick(Sender: TObject);
var nro:integer;

begin
// EditPrecio.Text:=DBGrid1.Columns.Items.Field.DataSet.Lookup()

// EditPrecio.Text:=Strtoint(ADODataSet1.;
AD.Append;
ad.FieldByName('Id_producto').AsWideString:='0';
Ad.Post;
// ADODataSet1.FieldByName('Id_producto').AsString:='0';
end;


como realizar dicha consulta es lo que no estoy sabiendo. agradecería una muestra del código.