[moka]

Проверь в каком именно учаске лаги, просто сделай перед операцией Time=Millisecs()
и после операции
TotTime=Millisecs()-Time
Узнаешь затраченное врмя на опр участок кода. Так определи место лагов. Потом уже детально форсируй - читай.