procedure TForm8.sBitBtn1Click(Sender: TObject);
var m: TfrxRichView;
theme_array: array of integer;
tmp_array: array of string;
i:integer;
all: array of integer;
begin
 // Получаем список номенклатуры из справочника
  GetInfoRepSQL('SELECT * FROM kodvopr WHERE (torep=1) ORDER BY KOD11');
  //Определяем размер массивов
  SetLength(tmp_array, Form1.ZReport.RecordCount);
  SetLength(theme_array, Form1.ZReport.RecordCount);
  SetLength(all, 5); // от 0 до 4
  Form1.ZReport.First;
    while not Form1.ZReport.Eof do
      begin     // записываем в массив циферные обозначения номенклатуры
        tmp_array[Form1.ZReport.RecNo-1]:=Form1.ZReport.FieldByName('KODnom').AsString;
        Form1.ZReport.Next;
      end;

// По циклу из массива номенклатуры, делаем запросы по базе обращений
  for i:=0 to length(tmp_array)-1 do
    begin
        GetInfoRepSQL('SELECT themeid FROM register WHERE themeid=('''+tmp_array[i]+''')');
        theme_array[i]:=Form1.ZReport.RecordCount;
        all[0]:=all[0]+Form1.ZReport.RecordCount; // общее количество
    end;
  all[1]:=theme_array[0]+theme_array[1]+theme_array[2]+theme_array[3]+theme_array[4]+theme_array[5]+theme_array[6]+theme_array[7]+theme_array[8]+theme_array[9]+theme_array[10];
  all[2]:=theme_array[7]+theme_array[8];
  all[3]:=theme_array[11]+theme_array[12]+theme_array[13];
  all[4]:=theme_array[17]+theme_array[18]+theme_array[19];
  all[5]:=theme_array[20]+theme_array[21]+theme_array[22]+theme_array[23]+theme_array[24]+theme_array[25]+theme_array[26]+theme_array[27]; //а это куда?

  Form1.frxReport1.LoadFromFile(Form1.sPath + '\reports\' + 'theme.fr3', true);

// Заполняем данными отчет
with Form1.frxReport1.Variables do
     begin
        Variables[' ' + 'MyDefaultCategory'] := Null;  //Создаем пустую категорию для дальнейшего создания переменных в отчете
        Variables['period'] := quotedstr(sDateEdit1.Text+' - '+sDateEdit2.Text);

            for i:=1 to length(theme_array) do
            begin     // заполняем переменные отчета
                     Variables['t'+inttostr(i)] := quotedstr(inttostr(theme_array[i]));
            end;

            for i:=0 to 5 do // 0,1,2,3,4,5 - итого 6
            begin     // заполняем результирующие переменные отчета
              Variables['all'+inttostr(i)] := quotedstr(inttostr(all[i]));
            end;

      end;
  frxReport1.ShowReport(true);
end;