delphi tms web core 实现异步方法

procedure TForm1.btnSleepClick(Sender: TObject);  
begin  
  btnSleep.Caption := 'Sleeping...';  
  asm  
    async function sleep(msecs) { 
      return new Promise((resolve) =>setTimeout(resolve, msecs)); 
    }  
    await sleep(5000);  
  end;  
  btnSleep.Caption := 'Go To Sleep delphiw.com';  
end;