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

在Delphi中异步调用函数/过程，可以使用TTask类和async关键字。TTask是一个封装了异步操作的类，可以在后台线程中执行任务，并在完成时返回结果。async关键字用于声明一个异步函数，该函数将返回一个TTask实例。

以下是一个简单的示例，演示如何在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.

在上面的示例中，AsyncFunction是一个简单的同步函数，用于模拟一个耗时操作。Main函数中使用TTask.Run方法异步调用AsyncFunction函数，并在主线程中执行其他任务。最后，使用Task.Wait方法等待AsyncFunction完成，并输出其结果。

需要注意的是，在异步调用函数时，可能会遇到竞争条件或死锁等问题。为了避免这些问题，需要使用适当的同步机制，例如互斥锁、信号量等。