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:=Low(theme_array) to High(theme_array) do
            begin     // заполняем переменные отчета
                     Variables['t'+inttostr(i)] := quotedstr(inttostr(theme_array[i]));
            end;

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

      end;
  Form1.frxReport1.ShowReport(true);