Eyða strengjum úr TStringList

Ég er með Listakassa eða Listaskjá með hlutum. Og ég er með strengjalista með sömu hlutum (strengjum) og Listakassi / Listaskjá. Ég vil eyða öllum völdum atriðum í Listakassanum / Listaskjánum úr strengjalistanum.

Hvernig á að gera?

for i:=0 to ListBox.Count-1 do
  if ListBox.Selected[i] then
    StringList1.Delete(i); // I cannot know exactly an index, other strings move up