ADOQuery1.Active:=false;
       ADOQuery1.SQL.Clear;           
       ADOQuery1.SQL.Add('select * from issledovania where ID_Isl='+IntToStr(frxDBDataset1ID_isl.Value));
       ADOQuery1.Active:=true;
                   
       ADOQuery2.Active:=false;
       ADOQuery1.SQL.Clear;           
       ADOQuery2.SQL.Add('select * from pacient where ID_Pac='+IntToStr(ADOQuery1.FieldByName('ID_Pac').AsInteger));
       ADOQuery2.Active:=true;