SetWindowsHookEx监视全局窗口创建消息的问题

下面是我写的程序,变量声明就省了.
procedure TForm1.Button1Click(Sender: TObject);
begin
hHook := SetWindowsHookEx(WH_SHELL , HookProc, HInstance, 0);
MessageBox(0, '监视启动', '信息', MB_ICONINFORMATION + MB_OK);
end;function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall;
begin
if icode=HSHELL_WINDOWCREATED then
form1.caption:=form1.caption+'1';
end;
运行后,只在第一次单击本程序的按钮的时候窗体的名字变为1,然后我打开其它程序(创建其它窗口)的时候,本程序的窗体名没有发生变化,我想问下高手们哪里出错了.