[Anton93]

Всем здрасте) подскажите что делаю не так.
Пишу код который сканирует, все логические диски, а затем выводит сообщение о найденных файлах пользователю.

Процедура CreateWindow, я подписал, это создания формы и вывод информации о найденных файлах. Но после того как поиск завершен форма, промелькнет на доли секунды и пропадает, то есть даже не выводит всю информацию. Как исправить, чтобы она не пропадала, что делаю не так?

Код:

procedure FindDrive;
var
  DiskList: DWORD;
  Drive: Char;
begin
  DiskList := GetLogicaldrives;
  Drive := 'a';
    while (DiskList > 0) do
      begin
        case GetDriveType(Pchar(Drive + ':\')) of
          3: FindFile(Drive + ':\');
        end;
      Disklist := Disklist shr 1;
      Inc(Drive);
    end;
   CreateWindow;//Процедура создания и отображения формы WINAPI
end;

P.S. А в процессах остается висеть, убирать приходится через taskmgr.