Okay, but the strange thing is, when I use something like this:

Type TSomething = (option1 = 10, option2 = 20, option3 = 40);

I get an error... I use Delphi 5 Enterprise Edt. and I have no clue how to solve this problem... Your method works fine, but doesn't add any values to the combobox items...

The problem is that the value returned by the property should be a DWORD value and probably one of the constants, however I could make such a list by using a case statement in the SetProperty(Value : TSomething) and setting the DWord value after walking true a case statement, but it would take away the possibility of assigning a DWORD value that is not in the TSomething list, while with the TColor type you can add everything within a certain range... I need something like TColor, but a copy of the TColor structure and type declaration and then renaming TColor for something else and using it, gives exactly the same result, just a editbox for integral values... :?

I'll take a look at the articles you game me!