Set New Page property on GroupHeader

Minh

Can someone help me how to set new page on or off on pagebreak condition? It is not turning on or off when I execute the code.

Thanks

procedure TFrmRptMnuFastR.frxReport_budactBeforePrint(
Sender: TfrxReportComponent);
var memo : tfrxGroupHeader;
component : TfrxComponent;
begin

case CmBxSortBy.ItemIndex of
0 : begin
component := frxreport_es_k_9.FindObject('GroupHeader1');
memo := component as TfrxGroupheader;
memo.Condition := 'frxDBDataset_budact."PLINE"';
if pagebreak then
memo.StartNewPage := true
else
memo.StartNewPage := false;
end;
1 : begin
component := frxreport_es_k_9.FindObject('GroupHeader1');
memo := component as TfrxGroupheader;
memo.Condition := 'frxDBDataset_budact."Act"';
if pagebreak then
memo.StartNewPage := true
else
memo.StartNewPage := false;
end;
end; // case (CmBxSortBy.ItemIndex)

end;

gpi

Set TfrxGroupHeader properties and change dataset sort order before preparing of report