Запрос в запросе

procedure TmenuForm.FormShow(Sender: TObject);
begin
  DM.billStrQuery.Close;
  DM.billStrQuery.SQL.Clear;
  DM.billStrQuery.SQL.Add('SELECT * FROM ЗаписьСписка WHERE ЗаписьСписка.Код_Накладной = :IDbill;'); 
  DM.billStrQuery.Parameters.ParamByName('IDbill').Value := clientForm.DBEdit2.Text;
  DM.billStrQuery.Open;
end;
 
 
procedure TclientForm.DBGrid2CellClick(Column: TColumn);
begin
 DM.billQuery.Close;
  DM.billQuery.SQL.Clear;
  DM.billQuery.SQL.Add('SELECT Товары.Наименование, Товары.Тип, Товары.Ед, Товары.Цена FROM Товары INNER JOIN :Qu ON Товары.Код_Товара = :IDprod;');
  DM.billQuery.Parameters.ParamByName('Qu').Value := DM.billStrQuery.SQL.ToString();
  DM.billQuery.Parameters.ParamByName('IDprod').Value := DBEdit3.Text;
  DM.billQuery.Open;
end;

DM.billQuery.Parameters.ParamByName('Qu').Value := DM.billStrQuery.SQL.ToString();

  DM.billQuery.Close;
  DM.billQuery.SQL.Text =
    'SELECT Товары.Наименование, Товары.Тип, Товары.Ед '+
    'FROM (ЗаписьСписка INNER JOIN Товары ON ЗаписьСписка.Код_Товара = Товары.Код_Товара) '+
      'INNER JOIN Накладная ON ЗаписьСписка.Код_Накладной = Накладная.Код_Накладной '+
    'where Накладная.Код_Накладной = :IDBill';
  DM.billQuery.Parameters.ParamByName('IDBill').Value := Edit3.Text;
  DM.billQuery.Open;