[MaMu]

SOLUCIONADO

Implemente esto como prueba y funciona perfecto, tal cual lo necesitaba.
Luego lo voy a adaptar a una funcion.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i,w,z,cant,porcion:integer;
begin
  w:=0;
  z:=20;
  porcion:=0;
  cant:=StrToInt(Edit1.Text);
  for i:=1 to cant  do
    begin
      w:=w+1;
      if w=z  //Conto 20?
        then begin
            w:=0;
            ListBox1.Items.Add('Pagina de '+IntToStr(i-z+1)+' a '+IntToStr(i));
            porcion:=porcion+1;
          end;
    end;
  //Faltan??? menores a Z=20
  if w<>0
  then ListBox1.Items.Add('Pagina de '+IntToStr(i-w)+' a '+IntToStr(cant));
end;

Delphius es interesante el dato, y desde ya cuando quieras compartirlo, bienvenido sea.

Saludos y Gracias a todos.