[Pykhov]

Код:

var
  type_spiska_int:integer;
begin

type_spisok:=ADODataSet2.FieldValues['number'];
ADODataSet3.Active:=False;
ADODataSet3.Parameters.ParamByName('kod_pribor').Value:=kod_prib;
ADODataSet3.Active:=true;
ADODataSet3.First;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Параметры where kod_type_pribor=:kod_pribor_DS3 and text=:text_DS3  and index=:index_DS3 and type_spiska =:type_spiska_DS3');

while not ADODataSet3.Eof do
  begin
    type_spiska_int:=ADODataSet3.FieldByName('type_spiska').AsInteger;
    if (type_spiska_int and type_spisok)<>0 then
      Begin
        ADOQuery1.Parameters.ParamByName('kod_pribor_DS3').Value:=ADODataSet3.FieldValues['kod_type_pribor'];
        ADOQuery1.Parameters.ParamByName('text_DS3').Value:=ADODataSet3.FieldValues['text'];
        ADOQuery1.Parameters.ParamByName('index_DS3').Value:=ADODataSet3.FieldValues['index'];
        ADOQuery1.Parameters.ParamByName('type_spiska_DS3').Value:=ADODataSet3.FieldValues['type_spiska'];
      End;
    ADODataSet3.Next;
  end;
 ADOQuery1.Active:=True;
end;

в результате этого фрагмента выводится результат последнего запроса выводится на Grid