Fórum Problema difícil com o quick report - acho que sem solução #223603

Pessoal, utilizo as rotinas abaixo para zebrar as linhas do relatório

Primeiro crio uma variável booleana de nome Faixa no form, depois nos eventos abaixo:

procedure TfrmForm1imp.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if dmSINSAP01.tblSINSCONFNM_RELATORIO.AsString = ´S´ then
begin
if Faixa then
begin
DetailBand1.Color := tblSINSCONFNM_COR1.AsInteger; // -> aqui defino a cor que eu quero em uma tabela
Faixa := False;
end
else
begin
DetailBand1.Color := tblSINSCONFNM_COR2.AsInteger;
Faixa := True;
end;
end;}
end;

procedure TfrmForm1imp.qrSINS0311BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
Faixa := True;
end;

Meu problema esta que eu tenho que colocar um componente qrrichtext para ser impresso e sua altura é variável. Como a altura é variável, a banda detalhe só colore o espaço da altura (heigth) que esta definido em tempo de projeto e o restante fica em branco, ou seja, fica um pedaço da banda colorida e a outra em branco. Como corrigr essa falha ?