GetRgbChannels

procedure GetRgbChannels(

  const Color: TColor;

  out r: Byte;

  out g: Byte;

  out b: Byte

); overload;

procedure GetRgbChannels(

  const Color: TColor;

  out r: Integer;

  out g: Integer;

  out b: Integer

); overload;