Ошибка при удалении компонента

[Putin-mode]

Добрый вечер! Есть исходник кода, я его переделываю под себя, Задача состоит с следующем, нужно из этого исходника удалить оба ShellTreeView, и заменить это на функцию selectdirectory, плюс удалить DriveComboBox. Сам я все удалил, и удалил основные ошибки, но парочка осталась. К сообщения прикрепляю 2 архива, в первом оригинальный исходник, во втором переделаный исходник но в нем есть ошибки, ошибки какого плана, при нахождении и последующем перемещении или копировании файлов вылезает ошибка list index out of bounds и пошло поехало. Помогите пожалуйста разобраться, и устранить ошибки в коде. Заранее спасибо!

[Putin-mode]

Про эти ошибки я знаю

[Warning] Unit1.pas(7): Unit 'ShellCtrls' is specific to a platform
[Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a platform

, про них и не спрашиваю, а вот на счет того что файлы не перемещаются и не копируются и вылезает ошибка, вот с этим проблемы.

[Stilet]

Скомпилил - выбрал перемещение - выбрал путь куда - жмакнул по кнопке Начать поиск...
Сработало, переместило, ошибок не вылезло.

[Putin-mode]

Второй исходник? нет, я только что запустил, и вылезло целый рабочий стол ошибок которую я описал выше

[Putin-mode]

Вот видео снял с ошибкой, копирую exe файлы из папки Test1 в Test2.

[vovk]

там чёрт ногу сломит в исходнике, судя по ошибке обращаемся к элементу списка листбокса с индексом -1, а Strings с 0 начинается, ищите ошибку пошагово.
Если никто не ответит до завтра вчитаюсь, разберусь, там сложностей нет, скорее всего что то нехорошое происходит ели эдит1 не пустой.

[Putin-mode]

Я могу код чуть оптимизировать, вернее раскоментировать если так будет легче. Самое странное что с ShellTreeView все работает, а при переходе на selectdirectory возникают данные ошибки. Заранее спасибо!

[vovk]

Немного сегодня подскажу, ищите ошибку в разнице между строками
"d:\data" и "d:\data\"
и обрящите, но это только следствие, причина в кривом коде.

[Putin-mode]

Я уже все вроде просмотрел, да и дельфа не ругается ни на типы ни на что, буду вам благодарен если поможете разобраться!

[vovk]

Будьте добры не поленитесь прочитайте ещё раз мой предыдущий пост, и после выбора директории добавьте в эдит в конце "\" (без скобочек) и проверьте.
И не надо на дельфи грешить..

добавляется не путь а папка, но дело не только в этом, дело в том, что это вызывает обрушение.