* Sleep function

packages/rtl/sysutils.pas

@@ -341,6 +341,7 @@ function GetEnvironmentString(Index: Integer): String;
 procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer = Nil);
 Procedure Abort;
 
+
 {*****************************************************************************
                                Events
 *****************************************************************************}
@@ -7894,6 +7895,5 @@ begin
   Result:=BoolToStr(Self,UseBoolStrs=TUseBoolStrs.True);
 end;
 
-
 end.
 

packages/rtl/webutils.pas

@@ -0,0 +1,30 @@
+unit webutils;
+
+{$mode objfpc}
+
+interface
+
+uses
+  web, js;
+
+function Sleep(ms: NativeInt): TJSPromise;
+
+implementation
+
+function Sleep(ms: NativeInt): TJSPromise;
+
+begin
+  Result := TJSPromise.New(
+  procedure(resolve,reject : TJSPromiseResolver)
+  begin
+    window.setTimeout(
+    procedure()
+    begin
+      resolve(ms);
+    end,
+    ms);
+  end);
+end;
+
+end.
+