[roman]

Usa IdentToColor,

Código Delphi [-]
var
  Color: Integer;

begin
  IdentToColor('clBlue', Color);
  Self.Color := Color;
end;

Aunque quizá sería mejor que guardases directamente el color (un TColor es un entero) en lugar de su nombre.

// Saludos