Вывести сумму в заголовке группы

Anry

Подскажите пожалуйста примерную последовательность действий как можно вывести сумму по группе в заголовке группы?
Никак не могу понять как это можно сделать.

Заранее, спасибо!

Ilya

В скрипте пишем следующее

int i;
TStringList List1;

void ReportOnStartReport(TfrxComponent Sender)
{
List1 = TStringList.Create();
}

void ReportOnStopReport(TfrxComponent Sender)
{
List1.Free();
}
void Page1OnBeforePrint(TfrxComponent Sender)
{
i = 0;
}


void Memo25OnAfterData(TfrxComponent Sender)
{
List1.Add(VarToStr(Memo25.Memo.Text));
}

void GroupHeader1Memo2OnAfterData(TfrxComponent Sender)
{
if (Engine.FinalPass)
{
GroupHeader1Memo2.Memo.Text = list1;
}
}

void ReportSummary1OnAfterPrint(TfrxComponent Sender)
{
i=0;
}


Мемо25 - то мемо, по которому надо суммировать.
GroupHeader1Memo2 - мемо в GroupHeader, в которую надо записать сумму