title: Add set of items to checklistbox and read values after
body: <p>Is there any way to fill and get a <code>set</code> of items from a checklistbox?</p>
  <p>What I did:</p>
  <pre><code>  TColorItem = (ms_red, ms_blue, ms_green, ms_yellow);
    TColorItems = set of TColorItem;
  </code></pre>
  <p>I have a component and I can choose from the <code>TColorItems</code></p>
  <pre><code> TProperty = class(TCollectionItem)
   private
     FModuleItem: TColorItems;  
     procedure SetColorItem(const Value: TColorItems);    
   published
     property ColorTypes: TColorItems read FColorItem write SetColorItem;
  
   procedure SetColorItem(const Value: TColorItems);
   begin
     FColorItem := Value;
   end;
  </code></pre>
  <p>After I setted up (checked) the items in the component, I created a form.</p>
  <p>My form looks like this:</p>
  <p><img src="https://i.stack.imgur.com/OKnnt.jpg" alt="enter image description here" /></p>
  <p>If I check any of the items from the checklistbox I want to get the <code>Result</code> as a <code>TColorItems</code> set:</p>
  <ul>
  <li><p>If <strong>Red</strong> and <strong>Green</strong> are checked the <code>set</code> must be</p>
  <p><code>Result := [ms_red, ms_green]</code></p>
  </li>
  <li><p>If <strong>Blue</strong>, <strong>Green</strong> and <strong>Yellow</strong> are checked:</p>
  <p><code>Result := [ms_blue, ms_green, ms_yellow]</code> etc..</p>
  </li>
  </ul>
  <p>The <code>Result</code> must be in this <code>[value1, value2]</code> form; I want to work with it after.</p>