procedure Page1OnAfterPrint(Sender: TfrxComponent);
begin
 Set('Page2Count', 0);
 Set('Page3Count', 0);
end;

procedure PageFooter2OnAfterPrint(Sender: TfrxComponent);
begin
 Set('Page2Count', <Page2Count> + 1);
end;

procedure PageFooter3OnAfterPrint(Sender: TfrxComponent);
begin
 Set('Page3Count', <Page3Count> + 1);
end;

var
frPage2, frPage3: TfrxMemoView;
s1, s2: String;
begin

//**

frxReport.PrepareReport(True);

frPage2 := frxReport.FindObject('Page2Count') as TfrxMemoView;
frPage3 := frxReport.FindObject('Page3Count') as TfrxMemoView;

s1 := frPage2.Memo.Text;
s2 := frPage3.Memo.Text;

ShowMessage // Выводит название мемок в квадратных скобках

end;