.h
class TBaudRateProperty:public TIntegerProperty {
public:
  TPropertyAttributes __fastcall GetAttributes(void)
  {
    return TPropertyAttributes() << paValueList;
  }
  void __fastcall GetValues(TGetStrProc Proc)
  {
    Proc("150");
    Proc("300");
    Proc("600");
    Proc("1200");
    Proc("2400");
    //略...
  }
};    .cpp
TTypeInfo* IntTypeInfo(void)
{
  TTypeInfo* typeInfo=new TTypeInfo;
  typeInfo->Name="int";
  typeInfo->Kind=tkInteger;
  return typeInfo;
}    namespace Testcomponent
{
  void __fastcall PACKAGE Register()
  {
    RegisterPropertyEditor(IntTypeInfo(),
    __classid(TTestComponent), "BaudRate",
    __classid(TBaudRateProperty));
    TComponentClass classes[1]={__classid(TTestComponennt)};
    RegisterComponents("Samples", classes, 0);
  }
}