define HAS_SLEEP and add a very simple sleep implementation

git-svn-id: trunk@23266 -

rtl/amiga/sysutils.pp

@@ -25,6 +25,7 @@ interface
 { force ansistrings }
 {$H+}
 
+{$DEFINE HAS_SLEEP}
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -628,6 +629,12 @@ begin
   ExecuteProcess := ExecuteProcess (Path, CommandLine);
 end;
 
+procedure Sleep(Milliseconds: cardinal);
+begin
+  // Amiga dos.library Delay() has precision of 1/50 seconds
+  Delay(Milliseconds div 20);
+end;
+
 
 {****************************************************************************
                               Initialization code