Сравнить с другим объектом для определения порядка их сортировки в списке
function Sort(aSource: TComparableObject): TSortResult; override;