Tstringlist в отдельном модуле

johnyoe

В документации идет пример использования TStringList для отображения суммы в заголовке группы.
При этом объект данного класса создается при старте отчета и уничтожается при завершении построения.
Как мне вынести данный объект в отдельный модуль с функциями, где нет естественно событий старта и завершения?
Т.е. я бы хотел создать данный объект в пределах отдельного модуля с функциями (чтобы не усложнять основной код отчета), подключаемого через uses.

var
List: TStringList;
i: Integer;

procedure frReport1OnStartReport(Sender: TfrxComponent);
begin
List := TStringList.Create;
end;

procedure frReport1OnStopReport(Sender: TfrxComponent);
begin
List.Free;
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
i := 0;
end;

procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
if Engine.FinalPass then
Memo8.Text := 'Sum: ' + List;
end;

procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
if not Engine.FinalPass then
List.Add(FloatToStr(SUM(<Group."ItemsTotal">,MasterData1)));
Inc(i);

end;