Как распределить цикл на отдельные исполняющие части Delphi?

Привет уважаемые гики! Такой вопрос,
Имеется цикл for i:=0 to z do begin. ...end.
В z передаю количество строк от listbox, в котором к примеру 1000 строк.
С каждой строкой в этом listbox провожу операцию в отдельном цикле.
Так вот, подскажите как реализовать что бы производились циклы в диапазоне 0-250, 250-500, 500-750, 750-1000. Из данного примера цикл делиться на 4 диапазона, значит нужно запустить4 цикла отдельных на выполнение. 1000 строк - это пример, нужно решение что бы проходило и допустим к 1567 строк. Т.е. Делить количество строк на части отдельные части исполнения.

К чему это я? И зачем?
Допустим к примеру если прописать в цикле
For i:=0 to 1000 do begin
G:=0
G:=g+1
Memo. String.Add(inttostr(g))...
То по порядку будет обрабатывается один цикл
А если окончание его 1000000,то это дело будет долго проходить.
А если разделить это дело на части то должно быть быстрее, как вы думаете и какие есть примеры?
Заранее спасибо за понимание и ответы, пишу с телефона сильно не ругайте!