Delphi TSpinEdit descendent taking values from an IntList

I need a visual descendent of a TSpinEdit control (named TListspinEdit) that only take its values from a list of integers (tIntList). Values entered into the editor should be restrained to the existing values from the integer list, the same applies to the up/down buttons, as well as the min/max properties. Additional requirements: - Must contain a boolean property called ListMode that when “true” will activate the list operation mode. If false, component must operate as a normal TSpinEdit. - Must contain a TIntList property (from Gary Darby’s source code, will be provided) called List that will be populated by code. Very simple project. Budget: $30 Schedule: 2 days