Troubles with MessageBeep | Beep...

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

I want to use API functions|procedures|types|constants
in my future ADA-projects,

I added User32.lib (aplib) to my project files

---------------------------------------------
with win32;          --general
use  win32; 
with win32.winuser;  --Messagebeep
use  win32.winuser;
with win32.winbase;  --Beep
use  win32.winbase;
    
package sound is
  procedure bell;
end sound;

package body sound is
  procedure bell is
  begin    
    Beep(1000, 1000);
    MessageBeep(MB_ICONASTERISK);
  end bell;
end sound;

with sound;use sound;

procedure main is
begin
  bell;
end main;
--------------------------------------------  
The result I get from the compiler is as follows:
(ObjectAda for Windows V7.1.105 (proffesional edition)
(Copyright (c) 1997, Aonix. All Rights Reserved.)
--------------------Target: Win32 (Intel) Debug--------------------
sound.ada: Error: line 15 col 5 LRM:5.1(4), Procedure call, entry call,
or code statement expected, Continuing 

sound.ada: Error: line 16 col 5 LRM:5.1(4), Procedure call, entry call,
or code statement expected, Continuing 

Front end of sound.ada failed with 2 errors. (0 Warnings)
Tool execution failed.
------------------------------------------------------------------------
---------
If I replace Bell(1000,1000); by Beep(1000);  The compiler tells me :
sound.ada: Error: line 15 col 5 LRM:6.4.1(3), Parameter mismatch in
call, missing actual for param dwDuration.

Isn't that a contradiction....

Does anyone know a solution to this problem...

Thnx,Bart.