Delphi Multithreading

// GET /orders/pending
App.MapGet('/orders/pending', 
  function(Context: THttpContext; Repo: IOrderRepository): IResult
  begin
    // "Traga pedidos onde Status é 'Submitted' E Total > 1000, 
    //  incluindo os Itens, ordenados por data de criação"
    var Spec := Specification.Where<TOrderEntity>(
                  (OrderEntity.Status = 'Submitted') and 
                  (OrderEntity.Total > 1000)
                )
                .Include('Items')
                .OrderBy(OrderEntity.CreatedAt.Desc);

    // O Repository apenas executa a especificação. Limpo.
    var Orders := Repo.List(Spec);
    
    Result := Results.Ok(Orders);
  end);