#pas
const
  
  StdColors: array [0..15] of TColor =
  (
    clBlack,
    clMaroon,
    clGreen,
    clOlive,
    clNavy,
    clPurple,
    clTeal,
    clGray,
    clSilver,
    clRed,
    clLime,
    clYellow,
    clBlue,
    clFuchsia,
    clAqua,
    clWhite
  );
    
  StdColorNames: array [0..15] of string =
  (
    'BLACK',
    'MAROON',
    'GREEN',
    'OLIVE',
    'NAVY',
    'PURPLE',
    'TEAL',
    'GRAY',
    'SILVER',
    'RED',
    'LIME',
    'YELLOW',
    'BLUE',
    'FUCHSIA',
    'AQUA',
    'WHITE'
  );
  
  function ColorName(Color: TColor): string;
  function ColorByName(ColorName: string): TColor;

      
implementation

function ColorName(Color: TColor): string;
var
  I: Integer;
begin
  Result := '';
  for I := 0 to High(StdColors) do
  begin
    if StdColors[I] = Color then
    begin
      Result := StdColorNames[I];
      Exit;
    end;
  end;
end;

function ColorByName(ColorName: string): TColor;
var
  I: Integer;
begin
  Result := clNone;
  ColorName := UpperCase(ColorName);
  for I := 0 to High(StdColorNames) do
  begin
    if StdColorNames[I] = ColorName then
    begin
      Result := StdColors[I];
      Exit;
    end;
  end;
end;