source code bug, please fix it

ibrahim bulut

i have found a bug in fr source code

when i try to change group header band's condition property in runtime,
i get error message

procedure TForm1.GroupSet(FieldName : String);
Var BB : TfrMemoView;
begin
BB:=TfrBandView(FRHESREC.FindObject('GroupHeader1'));
if (BB <> Nil) Then BB.Prop:='[Query1."' + FieldName + '"]';
end;


fr_class.pas
procedure TfrBandView.SetPropValue(Index: String; Value: Variant);
.
..
...
else if Index = 'CONDITION' then
begin
GroupCondition := Value;
if DocMode = dmPrinting then
Parent.GroupCondition := Value
end


it must be
GroupCondition := Value;
if (DocMode = dmPrinting) and (Parent <> Nil) Then Parent.GroupCondition:=Value

please change it original source code