API-timer...

["SEV, AV Guest 2" <avguest2@barco.com>]

I would like to use an API-timer in my future projects... the following
source compiles but the executable doesn't do what I want...
Has anyone experience with this...

------------------------------------------------------------------------
---------------
with win32, win32.winbase, win32.winuser;
with Ada.Unchecked_Conversion;
with Text_IO;
with System;

package Test is
  Result		  : Win32.Uint;
  Val		  : String (1..80);
  Len		  : Integer;
  procedure Tik (a : integer);
  function Convert is new Ada.Unchecked_Conversion
       (Win32.LPVoid,Win32.WinUser.TIMERPROC);
  procedure Drop;
end Test;

package body Test is

  procedure Tik (a: integer) is
    Result : Win32.Bool;
  begin       
    Result:=Win32.Winbase.beep(win32.ulong(a),500);
  end Tik;

  procedure Drop is
  begin
    Result:=Win32.Winuser.SetTimer(null,0,1000,Convert(Tik'address)); 
    Text_IO.Get_Line(S.Val,S.Len);
  end Drop;

end Test;

with Test;
procedure Main is
begin
  Test.Drop;  
end Main;
------------------------------------------------------------------------
--------------