ayuda urgente con qreport por favor
 

estoy imprimiendo una lista de alumnos, imprimo el campo "nombre" de la tabla "alumnos", pero tambien quiero imprimir un numero ascendente para cada nombre, osea:
1 maria
2 juan
3 pedro
...

como pongo el numero progresivo?

lo intenté poniendo un qrlabel y un contador de tipo integer con este codigo en el afterprint de la qrband tipo detail:

Código Delphi [-]
contador:=contador+1;
QRLABEL1.Caption:=inttostr(contador);

inicializo el contador:=1 en el evento onactivate del formulario que estoy usando.
deberia de funcionar, porque en el preview del qreport si sale bien el numero progresivo, pero cuando lo imprimo en lugar de salir: 1,2,3,4. Sale:5,6,7,8
ayuda por favor

solucion:
 

Hola tio .... ahi va la solucion

Código Delphi [-]
 
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
autonum := 0;
end;
 
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
    Inc(autonum);
    QRLabel1.Caption := 'llevamos ' + inttostr(autonum) + ' etiquetas';
end;

inicializamos antes de imprimir el quickreport, y en el evento de imprimir cada text le incrementamos uno ... y ya taaaaa.

Un saludo.

Ya lo intenté, en la vista previa me salen puros unos, sin mensaje, y cuando imprimo me sale: llevamos 4 etiquetas, en todos los renglones

No puede ser ....
 

Hola tio ... no puede ser ... por que yo lo tengo asi y si que funciona correctamente ... has creado el campo numerico como global y has puesto los mismos eventos que yo!?!?

No tengo idea de por que, pero ya funciona, aunque no le moví a nada mas, supongo que era alguna otra cosa lo que estaba mal, en fin. muchas gracias por su ayuda