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???

Código Delphi [-]
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