newband := tfrBandview.Create;
newband.SetBounds(0,160,757,20);
newband.BandType := btMasterData;
newband.DataSet := 'fruserdataset1';
newpage.Objects.Add(newband);
newmemo := tfrmemoview.Create;
newmemo.SetBounds(0,160,100,20);
newmemo.Alignment := 2;
newmemo.Font.Charset := 134;
newmemo.Font.Size := 9;
newmemo.Memo.Add('[item1]');
newpage.Objects.Add(newmemo);