[HTTqp]

Всем привет,
Создаю свой велосипед, а точнее аудио плеер плеер, на основе bass.dll, но это не важно. Некоторые плееры такие как Windows Media Center перед запуском сканируют компьютер на наличие видео и музыки. Так вот я пытаюсь сделать тоже самое, чтобы при первом запуске на компьютере сканировалось система на наличие музыки.
Код такой:

Код:

procedure FindDrive;
var
  DType: Byte;
  Drive: Char;//Диск
begin
  for Drive := 'a' to 'z' do
    begin
      DType := GetDriveType(PChar(Drive+':\'));
        case DType of
          DRIVE_FIXED: FindFileMPIII(Drive + ':\');
        end;
    end;
  Form1.Show;  
end;

Так вот я делаю это лишь при первом запуске, 2 и последующее это не выполняется. Проблема в том что форма становится видимой когда поиск еще не закончен, как исправить? Поиск FindFileMPIII в рекурсии все ок. Как исправить?