[nestquik]

До этого был другой код, но я с ним разобрался. В итоге получил эти 7 строчек - условий смешения
В итоге сократил их до 5. Убрав

if (q<PlayID) and (PlayID>N) then Exit;
if (q>PlayID) and (PlayID<N) then Exit;

Вкратце дело обстоит так:
есть 5 TStringList, которые хранят данные, есть TListView для вывода этих списков.
В нем производится Drag&Drop, и нужно сохранять позицию "активного" элемента. Под активным я подразумеваю тот, что воспроизводится.