Criar Banda/Draw em tempo de Execucao

caros, abaixo está o código.

procedure TfrmPrintOferta.RLDetailGrid1AfterPrint(Sender: TObject);
var Caixa : TRLDraw;
Banda : TRLBand;
begin
if RLDetailGrid1.RowIndex = 5 then begin
Banda := TRLBand.Create(RLReport1);
Banda.Parent := re
Banda.BandType := btFooter
Banda.Borders.Sides := sdAll;
Banda.Left := 11;
Banda.Height := 36;
Banda.Top := 249;
Banda.Width := 772;
Banda.Color := clRed;


=> Preciso criar uma banda em tempo de execucao.
=> o cursor tá entrando no IF perfeitamente, só que nao visualizo a banda no relatorio (preview), o que tá errado ?

No aguardo...