如何在Delphi中异步调用函数/过程(没有组件)

program AsyncExample;

{$APPTYPE CONSOLE}

uses
  System.SysUtils, System.Threading;

function AsyncFunction: string;
begin
  Result := 'Hello from AsyncFunction';
  Sleep(2000); // 模拟耗时操作
end;

procedure Main;
var
  Task: ITask;
begin
  // 异步调用AsyncFunction函数
  Task := TTask.Run(function: string
    begin
      Result := AsyncFunction;
    end);

  // 在主线程中执行其他任务
  WriteLn('Doing something else while AsyncFunction is running...');

  // 等待AsyncFunction完成
  Task.Wait;

  // 输出AsyncFunction的结果
  WriteLn('AsyncFunction result: ', Task.Result);
end;

begin
  Main;
  ReadLn;
end.