Alterar fonte quickrep em tempo de execução

[renanbg]

Olá pessoal.

Quero dar ao usuario a possibilidade de alterar detalhes da fonte do relatorio como tamanho, cor, negrito, etc.

Para isso, estou usando esse codigo no evento beforeprint da banda COLUMNHEADER.

Funciona, porém a fonte da SUMMARYBAND também é alterada.

Alguém sabe onde posso estar errando?

var
i : Integer;
begin
  for i:= 0 to ComponentCount - 1 do
    begin
      if (Components[i].ClassName = TQrLabel.ClassName) then
        begin
          TQrLabel(Components[i]).Font.Style:= [fsbold];
          TQrLabel(Components[i]).Font.Name := 'Arial';
          TQrLabel(Components[i]).Font.Color:= clRed;
        end;
    end;
end;