for i:=cd.Items.Count-1 downto 0 do if (cd.Items[i] = 'test1') or (cd.Items[i] = 'test2') or (cd.Items[i] = 'test') then cd.Items.Delete(i);