おう、これ入れるだけだろ？　さっそく使ってみたよ。
procedure muddleSP;
asm
　 call GetTickCount
　 mov edx,[esp]
　 and eax,$00000ff0
　 sub esp,eax
　 jmp edx
end;