Ese número puedes sacarlo de un campo de una tabla cualquiera, que luego muestras en el informe.
Te creas un sencillo bucle con 3 inserts para meter los registros.
Así en plan bruto:
Código Delphi
[-]var iX : integer;
For iX = 1 to 500
insert into tabla values (id, iX);
insert into tabla values (id, iX+500);
insert into tabla values (id, iX+1000);
Ya tienes los registros en la tabla.
Ahora haces el select que que usarás en el informe:
Código Delphi
[-]select numero from tabla order by id;
Ya los tenemos en el orden que quieres, ahora a imprimir.
Edito: el ID debe ser un número autoincremental.