KeyLogger Delphi

I have problem when using dll from http://www.freevbcode.com/ShowCode.Asp?ID=728, the author give an example in VB, when i try translate that code into Delphi, i found that my code doesn't work

could someone help me
thanks

this some part of my code

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

  function Hooked:boolean; external 'KTKbdHk.dll';
  function HookKeyboard(Hwnd,MsgID:Cardinal):LongInt; external 'KTKbdHk.dll';
  function UnhookKeyboard:Boolean; external 'KTKbdHk.dll';

var
  Form1: TForm1;

const
  MessageAris=$11;


implementation

{$R *.dfm}

type
{$IFDEF WIN32}
  WParameter = LongInt;
{$ELSE}
  WParameter = Word;
{$ENDIF}
  LParameter = LongInt;
{Declare a variable to hold the window procedure we are replacing}
var
  OldWindowProc : Pointer;

function NewWindowProc(WindowHandle : hWnd;
                       TheMessage   : WParameter;
                       ParamW       : WParameter;
                       ParamL       : LParameter) : LongInt;  stdcall;
var  tempRes      : integer;
     charRes      : char;
     keyboardState: TKeyboardState;
begin
{ Process the message of your choice here }
  if TheMessage = MessageAris then
  begin
   // The application should enter this area when i press some key
   // but it doesn't work, anyone know why?
  end;
  NewWindowProc := CallWindowProc(OldWindowProc,
                                  WindowHandle,
                                  TheMessage,
                                  ParamW,
                                  ParamL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Hooked then
  ShowMessage('Hooked');
 if HookKeyboard(Button3.Handle,MessageAris)<>0 then
  Button1.Enabled:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 OldWindowProc := Pointer(SetWindowLong(Button3.Handle,GWL_WNDPROC,longInt(@NewWindowProc)));
 Button1.Click;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnhookKeyboard;
  SetWindowLong(Button3.Handle,GWL_WNDPROC,LongInt(OldWindowProc));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if UnhookKeyboard then
 Button1.Enabled:=True;
end;