ApiHook 的问题

下面是一个 ApiHook 的代码，钩住后，却如果在新的函数里不做任何事的话，就不会出错，是怎么回事呢??
function ib(s:pchar;no:Cardinal):Cardinal;stdcall;
begin
Beep();
Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
//type
begin
lmo := LoadLibrary('kernel32.dll');
adds := GetProcAddress(lmo,'WinExec');
WriteProcessMemory(GetCurrentProcess(),adds,@ib,4,w);