ColorToRgbPercent

procedure ColorToRgbPercent(

  const Color: TColor;

  out RedPercent: Single;

  out GreenPercent: Single;

  out BluePercent: Single

); overload;

procedure ColorToRgbPercent(

  const Color: TColor;

  out RedPercent: Integer;

  out GreenPercent: Integer;

  out BluePercent: Integer

); overload;