проблема найдена, но появилась другая. Я использую поиск файлов в потоке, чтобы программа не зависла. Так вот делаю так:
Код:
var
ThID: DWORD;
...
BeginThread(nil, 0, @FindDrive, nil, 0, ThID);
то есть запуск просто цикла поиска, форма в конце появляется без проблем а в потоке лишь мелькает. Как эту задачу решить? Без потока нельзя, чтобы не было зависания.