How to create a Material Design Color Pallete in Delphi

Question

I hope to implement a material design color palette in delphi,

but I don't know how to generate a palette that looks like the picture above.

How to generate a scale from 100 to 700 for a given color?

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;