在线等，如何把fastreport里面生成的随机数传回给delphi？

procedure Memo25OnBeforePrint(Sender: TfrxComponent);
begin
Randomize;
  if <Page#> = 1 then
  begin
    for i:=0 to 500 do
    begin
       pageID:=trunc(Random()*10000000 + 10000);
       Str0 := Copy(IntToStr(pageID),1,5);
       frxGlobalVariables['CopyName'+inttostr(copyi)] := Str0;
       copyi:=copyi+1;
    end;
  end;
end;begin

end.我想把生成的随机数传给给delphi，急