procedure GetEnumNameList(Pti: PTypeInfo; AList:
  TStrings; X: Integer);
{(**********************************************************
 Will return in AList string version of an
enumerated type less the first X characters .
 eg X = 4
 and
  type
  eXORBuySell = (
  XOR_BUY,
  XOR_SELL
  );
 GetEnumNameList(TypeInfo(eXORBuySell), ComboBox1.Items, 4);
 Now ComboBox1.Items[0] = 'BUY'
 and ComboBox1.Items[1] = 'SELL'
************************************************************)}
var
 I: Integer;
begin
 AList.Clear;
 with GetTypeData(pti)^ do
 for I := MinValue to MaxValue do
  AList.Add(Copy(GetEnumName(pti, I), X + 1, 255));
end;