var
  IsVisible: boolean;
procedure MemoOnAfterData(Sender: TfrxComponent);
begin
  if IsVisible then
    Exit;
  IsVisible := Trim(TfrxMemoView(Sender).lines.text) <> '';
end;

procedure MasterDataOnAfterCalcHeight(Sender: TfrxComponent);
begin
  TfrxBand(Sender).Visible := IsVisible;
end;

procedure MasterDataOnAfterPrintSender: TfrxComponent);
begin
  TfrxBand(Sender).Visible := true;
  IsVisible := false;
end;