procedure DialogPage1OnShow(Sender: TfrxComponent);
var i: integer;                                  
begin
  for i:= 0 to DialogPage1.AllObjects.Count - 1 do    
    if (DialogPage1.AllObjects.Items[i] is TfrxEditControl) then
      ShowMessage(TfrxEditControl(DialogPage1.AllObjects.Items[i]).Text);    
end;