提一个delphi的问题，附上源码，请高手指点下（短）

这个是判断窗体是不是打开然后开启键盘记录的源码，请帮忙看下哪里是不是错了？
procedure TForm1.Button1Click(Sender: TObject);
var
zbwnd,qtwnd:hwnd;  //声明变量时，不能用“ := ”，只要一个冒号“:”
st:string;

begin
st:='hao123－－我的上网主页 - Microsoft Internet Explorer';  //分号要用英文符号
  zbwnd:=findwindow(nil,pchar(st));
  qtwnd:=GetForegroundWindow;
  if zbwnd = qtwnd then
begin
if LogHook = 0 then
begin
LogHook:=SetWindowsHookEx(WH_JOURNALRECORD,LogProc,HInstance,0);
end;
end;
end;

---

楼上的  你把键盘 记录的源码  发上来了  我的目的是  给 运行 这个键盘记录加个条件！

---

哪里报错？声明指针？

---

这问题是什么意思？

---

完整源码发上来了，帮忙看下吧！是哪里出了问题！
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  KeyMask = $80000000;
var
  Form1: TForm1;