i have this code here :
type TMyColors = (mcWhite, mcRed, mcBlue); TMyFields = (mfField1, mfField2, mfField3); .... implementation uses TypInfo; {