Я у себя кстати не проверялМожет накосячил, щас проверю. Кстати а на запись или воспроизведение надо?

Правка : всё прекрасно работает, если тебе не на вопроизведение а на запись, то поменяй строчку

if UpperCase(Copy(ta.Destinations.Destination[i].Data.szName, 1, 6)) = 'VOLUME' then

на

if UpperCase(Copy(ta.Destinations.Destination[i].Data.szName, 1, 6)) = 'RECORD' then