Type   TFigure = (Rect,Elipse,RoundRect);
published
    property   TypeFigure : TFigure read  fTypeFigure   write  SetTypeFigure ;
---------------------------------------------------------------------------------------------------------
// Заносим данные в VLE из Объекта
 Procedure TfMain.WriteVLE(VLE : TValueListEditor; NumObjList : Integer);
  Var
   I,J,N,Z,M: Integer;                                                                                                                                                              TypeData,D : PTypeData;                                                                                                                                          List,L     : PPropList;                                                                                                                                                               Obj : TBase;                                                                                                                                                                 Key,Value : String;                                                                                                                                                             Ti : PTypeInfo;
  Begin                                                                                                                                Obj:=TBase(fEdit.List[NumObjList]);                                                                                                               TypeData := GetTypeData(Obj.ClassInfo);                                                                                                                      N := TypeData.PropCount;
    If  N < 0 then Exit;
    GetMem(List,SizeOf(PPropInfo)*N);
     try
       GetPropInfos(Obj.ClassInfo,List);
      For I:=0 to N-1 do
       Begin

        // Имя свойства
         Key  := List[i]^.Name;
        Case List[I].PropType^.Kind of
         tkInteger :  
                  Begin  
                   Value:= IntToStr(GetOrdProp(Obj,List[i]));
                    // Добавим новую строку  VLE
                     VLE.InsertRow(Key,Value,True);
                End;


          // Перечисляемый тип
         tkEnumeration : Begin
                                     Value:= IntToStr(GetOrdProp(Obj,List[i]));
                                       VLE.InsertRow(Key,Value,True); // Записываем  свойство в ValueListEditor
                           // Т.к. свойство перечисляемого типа то сделаем выпадающий список
                          VLE.ItemProps[VLE.RowCount-2].EditStyle:=esPickList;
                           // Тут я должен получить значения TFigere - Rect,Elipse,RoundRect  и записать в
                              // выпадающий список, я могу получить значения кодом который в скобках
                            // но я имею тип в виде строки  - 'TFigure' а мне надо в виде типа.  
                           VLE.ItemProps[VLE.RowCount-2].PickList.Add('1');
                            VLE.ItemProps[VLE.RowCount-2].PickList.Add('2');

                             {
                           Ti:=TypeInfo((List[i]^.PropType^.Name)); //(TBrushStyle);
                           D := GetTypeData(Ti);
                           For j:=D.MinValue to D.MaxValue Do
                                VLE.ItemProps[VLE.RowCount-2].PickList.Add(GetEnumName(Ti,j));
                           }
                         End;
         End; // Case
        End;//For

       finally
       FreeMem(List,SizeOf(PPropInfo)*N);
     end;

 End;

Type   TFigure = (Rect,Elipse,RoundRect); published property TypeFigure:TFigure
read  fTypeFigure   write  SetTypeFigure ; ------------------------------------
// Заносим данные в VLE из Объекта
Procedure TfMain.WriteVLE(VLE : TValueListEditor; NumObjList : Integer); Var I,J
,N,Z,M: Integer; TypeData,D : PTypeData; List,L:PPropList;Obj:TBase;Key, Value :
String;Ti: PTypeInfo;  Begin  Obj:= TBase (fEdit.List[ NumObjList]); TypeData :=
GetTypeData(Obj.ClassInfo); N:=TypeData.PropCount; If N<0 then Exit; GetMem(List
,SizeOf( PPropInfo)* N); try GetPropInfos(Obj.ClassInfo,List);For I:=0 to N-1 do
Begin // Имя свойства
Key  := List[i]^.Name; Case List[I].PropType^.Kind of tkInteger: Begin  Value :=
IntToStr(GetOrdProp(Obj,List[i])); // Добавим новую строку  VLE
VLE.InsertRow(Key,Value,True); End;
// Перечисляемый тип
tkEnumeration : Begin Value:= IntToStr(GetOrdProp(Obj,List[i])); VLE.InsertRow (
Key,Value,True); // Записываем  свойство в ValueListEditor
// Т.к. свойство перечисляемого типа то сделаем выпадающий список
VLE.ItemProps[VLE.RowCount-2].EditStyle:=esPickList;
// Тут я должен получить значения TFigere - Rect,Elipse,RoundRect  и записать в
// выпадающий список, я могу получить значения кодом который в скобках
// но я имею тип в виде строки  - 'TFigure' а мне надо в виде типа.  
VLE.ItemProps[VLE.RowCount-2].PickList.Add('1'); VLE.ItemProps[VLE.RowCount-2 ].
PickList.Add('2'); End; End; End; finally FreeMem(List,SizeOf(PPropInfo)*N); end;
End;