GetCmykComponents

procedure GetCmykComponents(

  const AColor: TColor;

  out Cyan: Integer;

  out Magenta: Integer;

  out Yellow: Integer;

  out Black: Integer

); overload;

procedure GetCmykComponents(

  const AColor: TColor;

  out Cyan: Double;

  out Magenta: Double;

  out Yellow: Double;

  out Black: Double

); overload;