procedure Memo1OnBeforePrint(Sender: TfrxComponent);
begin
if <Line#> mod  2  =  0  then
  TfrxMemoView(Sender).Color := clRed
  else
  TfrxMemoView(Sender).Color := clGreen;
end;