TColorListItem

type TColorListItem = record

public

  No: Integer;

  Color: TColor;

  ColorName: string;

  function Red;

  function Green;

  function Blue;

  procedure GetRgbChannels();

  procedure Assign();

end;