Operator in If Then Anweisung als Variable möglich ?

[freimatz]

Warum TValueRelationship mit Gewalt auf eine Zahl mappen? Einfach ein enum TValueRelationship = (less, equal, greater) und bei Bedarf noch ein TValueRelationshipSet = set of TValueRelationship.
Magic values sind unclean.