Код ничего так, только я нашла там много мусора. Например, зачем ты сохраняешь параметры в стеке, передавая их через регистры по fastcall ?
Оптимизировать надо тут... ладно, посуду помою - попробую