我希望在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;