FastReport合并单元格

var 
  iRowCount: Integer;      
  AryHeight: Array of Extended;  

//Memo4为要合并的单元格名称
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
 if AryHeight[<Line#> - 1] = 0 then
  begin
    Memo4.Visible := False;
  end
  else
  begin
    Memo4.Visible := True;
    Memo4.Height := AryHeight[<Line#> - 1];
  end;   
end;

procedure Page1OnBeforePrint(Sender: TfrxComponent);
var
  i, iRepeat: Integer;
  sLastValue, sCurValue: string;
  MyDataSet: TfrxDataSet;
begin
  MyDataSet := TfrxDataSet(Report.GetDataSet('数据集名称'));
  iRowCount := MyDataSet.RecordCount;
  SetLength(AryHeight, iRowCount);
  MyDataSet.First;
  sCurValue := '';
  for i := 0 to iRowCount - 1 do