delphi restrequest ExecuteAsync 超时

在 Delphi 的 TRESTRequest 组件中，可以通过设置 `Timeout` 属性来控制异步请求的超时时间。如果请求在超时时间内未完成，则会触发超时错误，可以在相应的事件处理程序中进行处理。

例如，可以在 `ExecuteAsync` 方法的第二个参数中传入一个匿名方法，在该方法中设置超时时间和处理超时错误的逻辑：

var
  Request: TRESTRequest;
begin
  Request := TRESTRequest.Create(nil);
  try
    Request.Method := rmGET;
    Request.Resource := 'https://example.com/api/data';
    Request.Timeout := 5000; // 设置超时时间为 5 秒
    Request.ExecuteAsync(
      procedure
      begin
        // 请求完成后触发的事件处理程序
        if Request.Response.StatusCode = 200 then
        begin
          // 处理服务器响应
          ShowMessage(Request.Response.Content);
        end
        else
        begin
          // 处理请求错误
          ShowMessage(Request.Response.StatusText);
        end
      end,
      procedure
      begin
        // 超时错误处理程序
        ShowMessage('请求超时');
      end);
  finally
    Request.Free;
  end;
end;

在上面的示例中，将超时时间设置为 5 秒，并在 `ExecuteAsync` 方法的第二个参数中传入一个匿名方法，用于处理超时错误。如果请求在 5 秒内未完成，则会触发超时错误，执行匿名方法中的逻辑。