* partially merge 30274 to fix embedded (not recorded), mantis #30221

git-svn-id: branches/fixes_3_0@33873 -

rtl/embedded/sysutils.pp

@@ -33,6 +33,9 @@ interface
   { Include platform independent interface part }
   {$i sysutilh.inc}
 
+  var
+    SleepHandler: procedure(ms: cardinal) = nil;
+
 implementation
 
 uses
@@ -198,6 +201,17 @@ end;
                               Misc Functions
 ****************************************************************************}
 
+procedure sysBeep;
+begin
+end;
+
+
+Procedure Sleep(Milliseconds : Cardinal);
+begin
+  if assigned(SleepHandler) then
+    SleepHandler(Milliseconds);
+end;
+
 Function GetLastOSError : Integer;
 begin
   Result:=-1;