Предложил бы оптимизировать процедуру doNext на чистом asm, пологаю что delphi if не сильно оптимизирует.