Fragmentar/Paginar Resultado

[MaMu]

Resulta que yo tengo un List con X cantidad de items. Estos, pueden oscilar desde 1 a 1000. Lo que yo quiciera hacer, es fragmentar o paginar estos items, por ejemplo, agruparlo cada 10 o 20 items.
Por ejempo, si el List.Count=100, entonces, quiciera agruparlo en 5 grupos de 20. Y asi, con cualquier valor de List.Count, una suerte de funcion, asi:

function Paginar(ListCount:integer;Pagina:Integer):integer;
 
//donde
 
//ListCount:=List.Count;
//Pagina:=Cantidad de Items por Pagina

Si por ejemplo tengo un List.Count=65, tendria que devolverme:
-20
-20
-20
-5

No se si se entiende lo que quiero hacer, pero no se me ocurre como.
Alguna sugerencia o idea???

Saludos