问一个Fastreport的问题

Question

我在MasterData里放一个Memo，指定到数据库中XX字段，有10条记录
为了实现字体自动缩小填充，我在memo的beforeprint里写procedure Memo1OnBeforePrint(Sender: TfrxComponent);
beginTfrxMemoView(Sender).Font.Size :=12;
               
    while ((TfrxMemoView(Sender).CalcHeight-TfrxMemoView(Sender).LineSpacing)-TfrxMemoView(Sender).Height>0) do
  begin
   TfrxMemoView(Sender).Font.Size := TfrxMemoView(Sender).Font.Size-1;
  end;end;我想让Memo根据本身的内容长度去缩小字体，但结果是第1个memo得出的字体大小被应用到第2个memo里了，以此类推。
不知如何解决，把代码放在afterdata里，预览有，但打印出来却是空白。

Answer 1

其实只有一个memo，它是在masterdata里的