Delphi Multithreading

// GET /orders/pending
App.MapGet('/orders/pending', 
  function(Context: THttpContext; Repo: IOrderRepository): IResult
  begin
    // "Fetch orders where Status is 'Submitted' AND Total > 1000, 
    //  including Items, ordered by Date"
    var Spec := Specification.Where<TOrderEntity>(
                  (OrderEntity.Status = 'Submitted') and 
                  (OrderEntity.Total > 1000)
                )
                .Include('Items')
                .OrderBy(OrderEntity.CreatedAt.Desc);

    // The Repository only executes the specification. Clean.
    var Orders := Repo.List(Spec);
    
    Result := Results.Ok(Orders);
  end);