Rsa97

Можно и в один цикл, только смысла особого в этом нет.

Только передачей параметров в массиве.

procedure TForm1.Display(X: array of const);
var
  I: Integer;
begin
  for I := Low(X) to High(X) do
  ...
end;

Display([42, 1.234, 'A', 'Васек Трубачев', Form1, TButton]);

const
  PI = 3.1415926;
var
  D, V: real;
  k: integer;
begin
D := 10;
V := 0;
for k := 1 to 12 do begin
  V := V + PI * D * D * D / 6;
  D := D + 1;
end
V := V / 1000;

Ошибка в том, что ORDER BY и GROUP BY должны идти в обратном порядке.
Для группировки по дате надо так:

SELECT DATE(`date_insert`) AS `date`, SUM(`price`), AVG(`price`), COUNT(*)
  FROM `b_sale_order`
  WHERE (`canceled` = 'N') AND (`date_insert` BETWEEN :StartD AND :EndD)
  GROUP BY `date`
  ORDER BY `date`

`id` выбирать бесполезно, он будет взят от первой попавшейся строки в группе. Индекс в GROUP BY и ORDER BY работать не будет, поскольку используется не значение поля, а функция от него.

Создать ещё один массив, перенести туда данные из запроса, отсортировать оба массива, пройти по обоим одновременно со сравнением данных.