Как я могу настроить PostgreSQL для использования аутентификации Windows?

Перегрузка Sort, которую вы должны использовать, - это:

procedure Sort(const AComparer: IComparer<TMyRecord>);

Теперь вы можете создать IComparer<TMyRecord>, вызвав TComparer<TMyRecord>.Construct. Например:

var
  Comparison: TComparison<TMyRecord>;
....
Comparison := 
  function(const Left, Right: TMyRecord): Integer
  begin
    Result := Left.intVal-Right.intVal;
  end;
List.Sort(TComparer<TMyRecord>.Construct(Comparison));

Я написал функцию Comparison как анонимный метод, но вы также можете использовать обычную функцию non-OOP для старого стиля или метод объекта.

. Одна потенциальная проблема с вашей функцией сравнения заключается в том, что вы можете страдать от переполнения целого числа. Таким образом, вместо этого вы можете использовать целочисленный компаратор по умолчанию.

Comparison := 
  function(const Left, Right: TMyRecord): Integer
  begin
    Result := TComparer<Integer>.Default.Compare(Left.intVal, Right.intVal);
  end;

Возможно, было бы дорого вызывать TComparer<Integer>.Default несколько раз, чтобы вы могли сохранить его в глобальной переменной:

var
  IntegerComparer: IComparer<Integer>;
....
initialization
  IntegerComparer := TComparer<Integer>.Default;

Еще один вариант, который следует учитывать, - это передать в компаньон при создании списка. Если вы только сортируете список, используя этот порядок, то это более удобно.

List := TList<TMyRecord>.Create(TComparer<TMyRecord>.Construct(Comparison));

И затем вы можете отсортировать список с помощью

List.Sort;