Как получить более светлый или более тёмный цвет

{
  Here's some function that returns the lighter or darker color of a TColor.
  You can use it, for example, to design a bevel or something like that.
 }

 {=======================================}

function
 Min(a, b: Longint): Longint;
begin

  if
 a > b then

    Result := b
  else

    Result := a;
end
;

function
 Max(a, b: Longint): Longint;
begin

  if
 a > b then

    Result := a
  else

    Result := b;
end
;

{=======================================}

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
;

Другое по теме:

• Работа с палитрой
• Перевод RGB в GRAY
• Преобразование цвета RGB 34 HLS