String --> TColor
В модуле graphics имеется недокументированная функция:
function StringToColor(S: string): TColor;
©Drkb::03678
Взято из Советов по Delphi от Валентина Озерова
Сборник Kuliba