TVarCompareResult = (
  crLessThan,
  crEqual,
  crGreaterThan
);

enum TVarCompareResult {
  crLessThan,
  crEqual,
  crGreaterThan
};