unit CalcUnit; interface type TCalcDest = (cdTI89, cdTI89Titanium, cdTI92Plus, cdV200, cdTI92); TCalcDests = set of TCalcDest; const FirstCalcDest = cdTI89; LastCalcDest = cdTI92; implementation end.