Impresion en delphi

[luketas]

Aca les muestro los procedimientos y su codigo... no entiendo porque el programa no ingresa al need data, que estoy haciendo mal? mire un par de ejemplos y los resuelven de la manera q lo hago, pero al no ingresar al procedim, ovbiamente los campos se imprimen vacios, me pueden dar algun otro ejemplo?

procedure TRptAsistHsSuplementarias.QuickRepNeedData(Sender: TObject;
var MoreData: Boolean);
begin
QrlNombre.Caption := FrmVentImpAsist.arrayExtension[i].ApeNombre;
QrlNroLeg.Caption := IntToStr(FrmVentImpAsist.arrayExtension[i].NroLeg);
QrlExtJor.Caption := FrmVentImpAsist.arrayExtension[i].hsExtJor;
QrlNombre2.Caption := FrmVentImpAsist.arrayExtension[i].ApeNombre;
QrlNroLeg2.Caption := IntToStr(FrmVentImpAsist.arrayExtension[i].NroLeg);
Qrl50.Caption := FrmVentImpAsist.arrayExtension[i].hs50;
Qrl100.Caption := FrmVentImpAsist.arrayExtension[i].hs100;
MoreData:= i <= FrmVentImpAsist.cantRegArray-1;
i:= i+1;
end;
procedure TRptAsistHsSuplementarias.QuickRepStartPage(
Sender: TCustomQuickRep);
begin
i:=0;
end;