Ограничение на тип T - PascalABC.NET

Формулировка задачи:

{$reference Properties.dll}
///Версия Properties.dll для PascalABC.Net.
unit PropertiesPascal;
type
  ///Тип свойства.
  TProperty<T> = Properties.&Property<T>; // Как сделать ограничение на T, что он реализует IComparable<T>?
  ///Тип свойства со значением типа byte.
  TByteProperty = Properties.ByteProperty;
  ///Тип свойства со значением типа char.
  TCharProperty = Properties.CharProperty;
  ///Тип свойства со значением типа decimal.
  TDecimalProperty = Properties.DecimalProperty;
  ///Тип свойства со значением типа double.
  TDoubleProperty = Properties.DoubleProperty;
  ///Тип свойства со значением типа integer.
  TIntProperty = Properties.IntProperty;
  ///Тип свойства со значением типа string.
  TStringProperty = Properties.StringProperty;
 
///Возвращает строковое представление свойства.
function ToString<T>(property_: TProperty<T>) := property_.ToString();
///Выводит на экран значение property_.ToString().
procedure Print<T>(property_: TProperty<T>) := property_.Print();
///Выводит на экран значение property_.ToString() и переходит на новую строку.
procedure Println<T>(property_: TProperty<T>) := property_.Print();
end.

Как сделать ограничение на T, что он реализует IComparable<T>?

Еще актуально...

Решение задачи: «Ограничение на тип T»

Листинг программы

uses PropertiesPascal;
begin
  var (A, B) := (new TIntProperty(2), new TIntProperty(20));
  (A + B).Println();
  (A + 20).Println();
  
  var (C, D) := (new TStringProperty('Hello '), new TStringProperty('wowld!'));
  (C + D).Println();
  (C + 'world!').Println();
  (C * 2).Println();
  (C * A).Println();
  
  var (E, F) := (new TCharProperty('a'), new TCharProperty('b'));
  (E + F).Println();
  (E + 'b').Println();
  
  var Prop := new TProperty<integer>(1); // Вот из-за этого...
  Prop.Println();
end.

Объяснение кода листинга программы

Создается два объекта типа TIntProperty с значениями 2 и 20 соответственно.
Результат сложения этих двух объектов выводится в консоль.
Результат сложения объекта (A + 20) выводится в консоль.
Создаются два объекта типа TStringProperty с значениями Hello и wowld!.
Результат сложения этих двух объектов выводится в консоль.
Результат сложения объекта (C + 'world!') выводится в консоль.
Результат умножения объекта C на 2 выводится в консоль.
Результат умножения объекта C на объект A выводится в консоль.
Создаются два объекта типа TCharProperty с значениями a и b.
Результат сложения этих двух объектов выводится в консоль.
Результат сложения объекта (E + 'b') выводится в консоль.
Создается объект типа TProperty с начальным значением 1.
Значение этого объекта выводится в консоль.