La consulta en el Query debes tener: where campocodigo=
arametro.
en el evento OnDataChange del Datasource debe ir lo siguiente:
Código Delphi
[-]
Query.active:=false;
Query.ParamByName('parametro').asstring:=table.Fieldbyname('campocodigo').asstring;
Query.active:=true;
Espero sea eso lo que necesites. Saludos.