* Fixed OnBeep

git-svn-id: trunk@14271 -

rtl/wince/sysutils.pp

@@ -475,7 +475,7 @@ end;
                               Misc Functions
 ****************************************************************************}
 
-procedure Beep;
+procedure SysBeep;
 begin
   MessageBeep(0);
 end;
@@ -961,6 +961,7 @@ Initialization
   InitExceptions;       { Initialize exceptions. OS independent }
   InitInternational;    { Initialize internationalization settings }
   LoadVersionInfo;
+  OnBeep:=@SysBeep;
   SysConfigDir:='\Windows';
 
 Finalization