Запрос SQL к нескольким БД с подзапросами

begin
Form2.ADOConnection1.Connected:=TRUE;
TRY
ADOQuery3.SQL.Clear;
    ADOQuery3.SQL.Add('Select Cod_List from LIST2015 Where Cod_Doc_List=:a');
    AdoQuery3.Parameters.ParamByName('a').Value:=Label9.Caption;
    ADOQuery3.Active:=true;
    ADOQuery3.First;
            while not ADOQuery3.Eof do
              begin
              ShowMessage('Первый найден');
              Label11.Caption:=AdoQuery3.Fields.Fields[0].value;
                    begin
                          TRY
                              ADOQuery2.SQL.Clear;
                              ADOQuery2.SQL.Add('Select NAME_NOMENKL from NOMENKLATURA Where COD_NOMENKL=(Select Cod_Nomenkl_List from LIST2015 WHERE Cod_List=:b)');
                              AdoQuery2.Parameters.ParamByName('b').Value:=Label11.Caption;
                              ADOQuery2.Active:=true;
                              ADOQuery2.First;
                          while not ADOQuery2.Eof do
                              ADOQuery2.Next;
                          except on e:exception do
                              Showmessage(e.ClassName + ':' + e.Message);
                          end;
                        end;
              ADOQuery3.Next;
              end;
      except on e:exception do
        Showmessage(e.ClassName + ':' + e.Message);
        end;
 
end;