多线程中循环速度的有关问题

多线程中循环速度的问题?
这样一段代码:
for   I:=0   to   BMP.Height-1   do   p   :=   BMP.ScanLine[I]
在主线程中执行几乎不花时间,但是在子线程中却要等N久才能执行完,不知道是什么问题?

[解决办法]
和线程,循环好像没有关系,pixelformat:=pf32bit试试