frCompositeReport

4ebura6ka

Здравствуйте

Использую Delphi6 + FreeReports 2.33.

Создал шаблон отчета (frReport). Далее в нужные поля подставляю значения и
объединяю это все в композитный отчет:

var 
   Rep : array of TfrReport;
   ComReport : TfrCompositeReport;
   i : integer;
begin
   ComReport := TfrCompositeReport.Create(Self);
   ComReport.Reports.Clear;
   SetLength(Rep, 11);   
   for i := 1 to 10 do
   begin
      Rep[i] := Form2.frReport1;
      TfrMemoView(Rep[i].FindObject('memo1')).Memo.Text := inttostr(i);
      ComReport.Report.Add(Rep[i]);
   end;
   ComReport.ShowReport;
end;

Проблема в том, что на всех страницах одно и тоже ("1"). Делал проверку - после присоединения к композитному отчету делал:

Rep[i].ShowReport

В Rep каждый раз показывалась разная информация. В чем может быть проблема?