Assasin, я что виноват, что на практике всё на оборот?
проверь сам, теория теорией, практика практикой

nesco, на 1 000 000 итераций виднее будет.
GetMem(ps, 10000); \ здесь тоже изменять ?