delphi - Generic TList.Sort での「スタック オーバーフロー」エラー

Question

型指定された TList を並べ替えるために Generics.Defaults.TComparer を実装しました。ただし、Sort メソッドを呼び出すと、「... でのスタック オーバーフロー」という例外がスローされます。

スタック オーバーフロー エラーが発生するのはなぜですか?

// Declarations

  TOrder = record
    ID: Integer;
    OrderDate: TDate;
  end;

  POrder = ^TOrder;

  FOrderList: TList<POrder>;

  TComparer_OrderDate = class(TComparer<POrder>)
  public
    function Compare(const a, b: POrder): Integer; override;
  end;

function TComparer_OrderDate.Compare(const a, b: POrder): Integer;
begin
  Result := 0;

  if (a^.OrderDate> b^.OrderDate) then
    Result := 1
  else
    Result := -1;
end;


  // This code inside a button OnClick event: 
  FOrderList := TList<POrder>.Create;

  FComparer_OrderDate := TComparer_OrderDate.Create;

  FOrderList.Sort(FComparer_OrderDate); // <--- 'stack overflow' error.