Список цветов Опции

[Client]

var
  ATypeInfo: PTypeInfo;
  i:Tcolor;
begin
  memo1.Clear;
  ATypeInfo := TypeInfo(Tcolor);
  for i:=high(tcolor)-40 to high(tcolor) do
    memo1.Lines.Add(GetEnumName(ATypeInfo, ord(i)));
end;

или

var
  i:Tcolor;
begin
  memo1.Clear;
  for i:=high(tcolor)-40 to high(tcolor) do
    memo1.Lines.Add(colortostring(i));
end;

Выдает список из номеров цветов, а не из их названий. Как можно взять имя цвета?

[volvo]

Я ж написал, что не получится у тебя работать с константами через GetEnumName... Проверил? Убедился?

Вот так попробуй:

procedure TForm1.MyColorCallback(const S: string); // Опиши в классе формы
begin
    Memo1.Lines.Add(S);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  memo1.Clear;
  GetColorValues(MyColorCallback); // Описано в модуле Graphics
end;