Du brichst zu früh ab:
if (PageIndex * CONTACTS_PER_PAGE + j) = FContactList.Count - 1 then break;
So isses richtig:
if (PageIndex * CONTACTS_PER_PAGE + j) = FContactList.Count then break;
*g*
@jänicke: Das passt schon. (5 - 1) div 3 = 4 div 3 = 1
also for i := 0 to 1 do
macht Seite 0 und Seite 1 = 2 Seiten