Cores - escurecendo ou clareando uma cor

function GetHighlightColor(BaseColor: TColor): TColor;

begin

  Result := RGB(Min(GetRValue(ColorToRGB(BaseColor)) + 64, 255),

    Min(GetGValue(ColorToRGB(BaseColor)) + 64, 255),

    Min(GetBValue(ColorToRGB(BaseColor)) + 64, 255));

end;

function GetShadowColor(BaseColor: TColor): TColor;

begin

  Result := RGB(Max(GetRValue(ColorToRGB(BaseColor)) - 64, 0),

    Max(GetGValue(ColorToRGB(BaseColor)) - 64, 0),

    Max(GetBValue(ColorToRGB(BaseColor)) - 64, 0));

end;