kill process

[legendary]

код длл:

procedure kill;
var
  h2,hp: THandle;
  p: PROCESSENTRY32;
  pid: integer;
begin
h2:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if h2=-1 then exit;
if Process32First(h2,p) then
 repeat
  if p.szExeFile='opera.exe' then break;
 until not process32next(h2,p)
else exit;
if p.th32ProcessID = 0 then exit;
pid:= p.th32ProcessID;
hp:= OpenProcess(PROCESS_TERMINATE, true, pid);
TerminateProcess(hp,0);
closehandle(h2);
closehandle(hp);
end;

function hook(code, wParam, lParam : integer): Lresult; stdcall;
begin
if (Code >= 0) and (wParam=0) then
begin
kill;
end;
result := CallNextHookEx(h, code, wParam, lParam);
End;


procedure sethook;
begin
h:=SetWindowsHookEx(WH_CALLWNDPROC, @hook, hInstance, 0);
end;

procedure removehook;
begin
  UnhookWindowsHookEx(h);
end;

exports
sethook index 1  name 'sethook',
removehook index 2 name 'removehook';
end.

И снова я. вопрос такой: почему когда я устанавливаю хук ничево не происходит? в замисле длл мает висет в памяти и недавать запускать оперу. как мониторить все процеси с интервалом в 1 сек?