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