procedure TForm1.Button1Click(Sender: TObject);
var
myMemo: TfrxMemoView;
begin
myMemo := TfrxMemoView(frxReport1.FindObject('Memo1'));
if (myMemo <> nil) then
myMemo.Visible := false;
procedure TForm1.Button1Click(Sender: TObject);
var
myMemo: TfrxMemoView;
begin
myMemo := TfrxMemoView(frxReport1.FindObject('Memo2'));
if (myMemo <> nil) and (myMemo.Memo.text=1) then
myMemo.Memo.text := '';