Запуск приложений из своей программы

[Vladya]

Добрый день! Прошу помощи разъяснить мне вот что:
у меня в программе есть несколько кнопочек при нажатии на которые запускаются "левые" приложения, и есть кнопочка поиска файлов, так вот, до тех пор пока я не нажимаю на кнопку поиска у меня все приложения запускаются а как только выполнил поиск то все, больше я ничего не могу запустить. Как будто мое приложение не может найти эти самые "левые" приложения. В чем проблема может быть?

Код запуска приложения:

procedure TForm1.N22Click(Sender: TObject);
begin
RzPanel1.Visible:=false;
ShellExecute(Handle, nil, 'WINDOWS\Game\winmine.exe', nil, nil, SW_SHOWNORMAL);
end;

Код выполнения поиска:

procedure TForm1.N54Click(Sender: TObject);
 var
 sr:TSearchRec;
    Result:word;
    dir: string;
Begin
dir:='WINDOWS\Wallpapers';
sTabControl1.Visible:=true;
 ShowWindow(FindWindow('Shell_TrayWnd', nil), sw_hide);

        ChDir(dir);
        Result := FindFirst ('*.jpg',faAnyFile,sr);
        sListBox1.Clear;
        While result=0 do
    Begin
        Result:=FindNext (sr);
        sListBox1.Items.add(sr.name);
    End;
end;

Спасибо!

[Ulex]

Может быть в этом:

procedure TForm1.N54Click(Sender: TObject);
 var
 sr:TSearchRec;
    Result:word;
    dir: string;
Begin
dir:='WINDOWS\Wallpapers';
sTabControl1.Visible:=true;
 ShowWindow(FindWindow('Shell_TrayWnd', nil), sw_hide);

        ChDir(dir);
        Result := FindFirst ('*.jpg',faAnyFile,sr);
        sListBox1.Clear;
        While result=0 do
    Begin
        Result:=FindNext (sr);
        sListBox1.Items.add(sr.name);
    End;
end;

[Vladya]

Я понимаю что в этом, а как исправить то можно что бы все нормально работало? Этой процедуры мне никак вырезать нельзя...