という事で、想定しないバッファオーバラン対策として

.dpr の先頭で

var reg:Integer;
begin
reg:= GetTickCount and $FF0;
asm sub ESP,reg end ;

のようにするアイデアが浮かんだよ。　これでスタックを強制的にランダムに動かせるから
アタックが成功する率を 1/256 に出来る。