Contador en impresion

[Pablo Carlos]

Hola gente... necesito si me pueden ayudar... realizar un prg que haga de contador... tengo en el form principal 2 Tedit (los cuales uso para indicar el desde y el hasta. En el evento onclick de un button escribo este código donde eNumero1 es un QRlabel y necesito que alli de el numero que corresponde a "I"... imprima la primer pag y en la segunda, obviamente tendría que dar I + 1... pero con este código me da error... Pueden revisarlo y sugerir???

var I : Integer;
begin
for I := StrToInt(frmPrincipal.eDesde.Text) to StrToInt(frmPrincipal.eHasta.Text) do
begin
with frmImprimir do
begin
StrToInt(eNumero1.Caption):= I + 1;
Report.Preview;
end;
end;



Gracias

[vic_ia]

hola...

en primera instancia lo que observo es que estas utilizando una función (que te regresa un valor) del lado izquierdo de una sentencia de asignación, no creo que eso sea valido, yo creo que lo mejor es que utilices una variable local y a ella asignes el valor de tu suma (I+1) y luego esta la asignes en donde la requieras ...

saludos...

[Pablo Carlos]

Gracias...

Esto es lo que hice...

var I : Integer;
begin
for I := StrToInt(frmPrincipal.eDesde.Text) to StrToInt(frmPrincipal.eHasta.Text) do
begin
with frmImprimir do
begin
eNumero1.Caption := StrToInt(I);
Report.Preview;
end;
end;

y alli esta funcionando... gracias nuevamente
Saludos