[M.A.D.M.A.N.]

Потому что надо передавать объект сортировки IComparer<T>.
http://docs.embarcadero.com/products...IComparer.html
Ну и ф-я должна быть такой:

Код:

function (const Left, Right: Integer): Integer
begin
  Result := Right - Left;
end