Report Code fails in package run

var FirstPrintRowBorder: Boolean; procedure GroupHeader1OnAfterPrint(Sender: TfrxComponent); begin   FirstPrintRowBorder := True; end; procedure TableCell1OnBeforePrint(Sender: TfrxComponent); begin   if FirstPrintRowBorder then     TableCell1.Frame.TopLine.Color := clWhite   else     TableCell1.Frame.TopLine.Color := clBlack; end; procedure TableCell2OnBeforePrint(Sender: TfrxComponent); begin   if FirstPrintRowBorder then     TableCell2.Frame.TopLine.Color := clWhite   else     TableCell2.Frame.TopLine.Color := clBlack; end; procedure TableCell3OnBeforePrint(Sender: TfrxComponent); begin   if FirstPrintRowBorder then   begin     TableCell3.Frame.TopLine.Color := clWhite;     FirstPrintRowBorder := False;   end   else     TableCell3.Frame.TopLine.Color := clBlack; end;