SELECT ID, NETTO, TIME_IN, DATE_IN, NAME_ORG, NUM, 0 as GroupIndex
FROM VES_V
WHERE ...
union all
SELECT ID, NETTO, TIME_IN, DATE_IN, NAME_ORG, NUM, 1 as GroupIndex
FROM VES_V
WHERE ...
ORDER BY name_org, GroupIndex, date_in, time_in

function TFReestr.Get_Querry_Without_Num: string;
var
  s: string;
  i: integer;
begin
  s := '(';

{тут мы определяем, что выделил пользователь и генерим WHERE}
  for i := 0 to dbg1.SelectedRows.Count - 1 do
  begin
    dbg1.DataSource.DataSet.GotoBookmark(Pointer(dbg1.SelectedRows.Items[i]));
    s := s + '(ORG_CODE=' + dbg1.DataSource.DataSet.FieldByName('ORG_CODE').AsString + ') OR ';
  end;

  Delete(s, Length(s) - 3, 4);

  s := s + ') AND (';
{добавляем в WHERE фильтр по датам}
  s := s + 'date_in BETWEEN ' + QuotedStr(ed1.Text) + ' AND ' + QuotedStr(ed2.Text) + ') ';

{вот и сам запрос в форме для группирующего отчета}
  Result := 'SELECT ID, NETTO, TIME_IN, DATE_IN, NAME_ORG, NUM FROM VES_V WHERE ' + s +
    'ORDER BY name_org, date_in, time_in;';
end;

SELECT qq, qq1, qq2, 0 as GroupIndex FROM TABEL_MY
UNION ALL
SELECT qq, qq1, qq2, 1 as GroupIndex FROM TABEL_MY

frxReport1.PrepareReport(true);
frxReport1.PrepareReport(false);
frxReport1.ShowPreparedReport;