[friz]

как-то так:
1) запрос сортируешь по группам
2)

Код:

A.First;

//Делаем первую группу
GROUP:=A.FieldByName('group').AsString;
Sheet.Cells[index,1]:=GROUP;


while not A.Eof do begin
   if GROUP<>A.FieldByName('group').AsString 
           THEN
              begin
              Sheet.Cells[index,1]:=A.FieldByName('group').AsString;
              Inc(index);
              GROUP:=A.FieldByName('group').AsString ;
              end;
  
  Sheet.Cells[index,2]:= A.FieldByName('naim').AsString;
  Sheet.Cells[index,3]:= A.FieldByName('cena').AsString;
  a.Next;
  if a.Eof then Break;
  Sheet.Cells[index,5]:= A.FieldByName('naim').AsString;
  Sheet.Cells[index,6]:= A.FieldByName('cena').AsString;
  Inc(index);
  A.Next;
end;