Как получить значения RGB для системного цвета?

Я всегда использовал функции GetRValue, GetGValue и GetBValue (из блока Winapi.Windows) для извлечения значений RGB для TColor.

К сожалению, тот же подход не подходит для системных цветов, таких как clWindow, clBtnFace и так далее.

Например:

var
  MyColor : TColor;
begin
  MyColor := clBtnFace;

  ShowMessage(
    'R = ' + IntToStr(GetRValue(MyColor)) + sLineBreak +
    'G = ' + IntToStr(GetGValue(MyColor)) + sLineBreak +
    'B = ' + IntToStr(GetBValue(MyColor))
  );
end;

Он производит следующий вывод:

Р = 15

Г = 0

В = 0

Что должно выглядеть так:

В моей системе вместо этого я вижу следующий цвет: