◆fastreport4使用问题◆

在fastreport4中设计报表，在masterdata放了个memo1，在memo1里放了个变量[s1]，在报表的OnGetValue事件中我会写了，现在我想在memo1的OnBeforePrint事件中给s1赋值，不知改如何写？

fastreport的OnGetValue 事件代码如下（测试通过）：
Delphi(Pascal) code

procedure TForm1.frxReport1GetValue(const VarName: String; var Value: Variant);
begin
  if CompareText(VarName, 's1') = 0 then Value := 1;
end;

报表设计中memo1的OnBeforePrint事件代码（测试不通过）：
Delphi(Pascal) code

procedure Memo1OnBeforePrint(Sender: TfrxComponent);
begin
  s1 := 1;                                        
end;

memo1.text:='1'

这种方法会提示出错的，而且如果memo1中有多个变量情况下行不通