QuickRep1+QRPGrid1 - Margens extrapolando

Estou usando um componente, chamado QRPGrid1, onde eu o redimenciono  de acordo com o qrlabel de maior preenchimento pra criar essa aparencia de Grid,

As fontes em vermelho, significa que a rotina esta identificando qual o maior texto, pra poder redimencionar o grid de acordo com a altura  deste texto

O código que uso pra redimencionar e este :

>

Citar

 iTamNomeRepresentante :=  Length(trim(qrlNomeApresentante.caption));
  iTamNatFormalTitulo   :=  Length(trim(qrlNaturezaFormalTitulo.caption));
  iTamAnotacoes         :=  Trunc(Length(trim(qrlAnotacoes.caption)) * 0.674);

    if (iTamNomeRepresentante >= iTamNatFormalTitulo) and (iTamNomeRepresentante >= iTamAnotacoes) then
   begin
     lRect.Right := qrlNomeApresentante.width;
     lRect.Bottom:= qrlNomeApresentante.Height;
     sTexto      := qrlNomeApresentante.Caption;
     qrlNomeApresentante.Font.Color := clRed;

    end
   else if (iTamNatFormalTitulo >= iTamNomeRepresentante) and (iTamNatFormalTitulo >= iTamAnotacoes) then
         begin
           lRect.Right  := qrlNaturezaFormalTitulo.width;
           lRect.Bottom := qrlNaturezaFormalTitulo.Height;
           sTexto       := qrlNaturezaFormalTitulo.Caption;
           qrlNaturezaFormalTitulo.Font.Color := clRed;

          end
         else begin
                lRect.Right := qrlAnotacoes.width;
                lRect.Bottom:= qrlAnotacoes.Height;
                sTexto      := qrlAnotacoes.Caption;
                qrlAnotacoes.Font.Color := clRed;
             end;

   if Trim(sTexto) = ''
  then Exit;

  lFlags := DT_CALCRECT + DT_LEFT + DT_NOPREFIX + DT_WORDBREAK;

   DrawText(Canvas.Handle, pChar(sTexto), Length(sTexto), lRect, lFlags);

  

	 

	O problema e que qd o texto vaza pra outra pagina,  , o grid extrapola o tamanho na primeira pagina saindo fora da margem,

	 alguem sabe como evitar que essa grid , extrapole ?

	Segue a imagem.

	 

	![imagem](https://forum.imasters.com.br/monthly_2018_09/image.png.f31c3551d321b7f4783d9ffca2162282.png)