Paginas e Linhas em TStrings

Eu tenho um componente e nesse componente eu tenho o TCollection e o TCollectionItem

Cada TCollectionItem é uma página e nessa página tem um o tamanho de Linhas que vai ter o TStrings

Eu estou querendo criar uma função que vai adicionar as linhas ao TStrings

O problema é que tipo a função tem que verificar em que Página vai ser adicionada a linha!

Exemplo a página 1 tem 20 linhas já a 2 tem 23 a quarta pode ter 24 não tendo ao certo o tanto de linhas

Exemplo se for adicionado a linha 19 então vai ser a página 1!
se for a adicionar a linha 21 vai ser a página 2!
se for a adicionar a linha 45 já vai ser na página 3!

Alguem pode me ajudar a fazer isso?