I add items to listbox:

```
for i:=0 to HomeWorkers.Count-1 do
begin
s := '['+HomeWorker[i].Id+']  ' + HomeWorker[i].Name;
Listbox1.Items.Add(s);
end;

```

Now i want to get number of selected item. 
I can get its caption:

```
ShowMessage(ListBox1.Items.Strings[Listbox1.ItemIndex]);

```

Example id`s: 12880345, 1274136.
Can I add Item with 

```
'['+HomeWorker[i].Id+']  ' + HomeWorker[i].Name;

```

, 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