for i := 0 to advsmoothlistbox1.Items.Count - 1 do 
begin
   if advsmoothlistbox1.Items[i].Selected then ... 
   // returns a selected item in multiselect 
end;