title: Delphi Listbox Item name, no caption
body: <p>I add items to listbox:</p>
  
  <pre><code>for i:=0 to HomeWorkers.Count-1 do
  begin
  s := '['+HomeWorker[i].Id+']  ' + HomeWorker[i].Name;
  Listbox1.Items.Add(s);
  end;
  </code></pre>
  
  <p>Now i want to get number of selected item. 
  I can get its caption:</p>
  
  <pre><code>ShowMessage(ListBox1.Items.Strings[Listbox1.ItemIndex]);
  </code></pre>
  
  <p>Example id`s: 12880345, 1274136.
  Can I add Item with </p>
  
  <pre><code>'['+HomeWorker[i].Id+']  ' + HomeWorker[i].Name;
  </code></pre>
  
  <p>, but in ShowMessage display only HomeWorker[i].Id without string caption parsing? Thanks in advance.
  P.S I am from Russia, so sorry for bad English</p>