Как создать цветовой дизайн поддонов в Delphi

Question

Я надеюсь реализовать цветовую палитру дизайна материала в Delphi,

, но я не знаю, как создать палитру, которая выглядит как на картинке выше.

Как создать шкалу от 100 до 700 для данного цвета?

TMaterialColor = class
constructor Create(Color: TColor);
property _100: Tcolor read f_100;
property _200: Tcolor read f_200;
property _300: Tcolor read f_300;
property _400: Tcolor read f_400;
property _500: Tcolor read f_500;
property _600: Tcolor read f_100;
property _700: Tcolor read f_700;  {Shift + Ctrl  + C to generate code snippet}
end
implementation
constructor TMaterialColor.Create;
begin
f_100 := ? ;
f_200 := ? ;
f_300 := ? ;
f_400 := ? ;
f_500 := ? ;
f_600 := ? ;
f_700 := ? ;
end;