您可以使用以下转换函数（这两个函数都适用于颜色常量）：

• StringToColor函数，用于将颜色字符串表示转换为TColor值
• 需要将TColor值转换为字符串表示形式时使用ColorToString函数

在您的情况下，需要使用StringToColor函数：

Form1.Color := StringToColor('clSkyBlue');

您可以在GraphUtil.pas中找到所有这些例程。
{将TColor转换为Web色彩常数，例如#FFFFFF }

function ColorToWebColorStr(Color: TColor): string;

{将TColor转换为Web颜色名称，如果颜色不匹配，则返回Web颜色值。}

function ColorToWebColorName(Color: TColor): string;
function WebColorToRGB(WebColor: Integer): Integer;
function RGBToWebColorStr(RGB: Integer): string;
function RGBToWebColorName(RGB: Integer): string;

{将Web颜色名称转换为等价的TColor，如果不匹配，则返回clNone}

function WebColorNameToColor(WebColorName: string): TColor;

{将Web样式颜色字符串（#FFFFFF或FFFFFF）转换为TColor }

function WebColorStrToColor(WebColor: string): TColor;

• 汉斯回答 *