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;