Вопрос по BrowseFolder

[Noor]

Помогите решить такую проблему

begin
     if JvBrowseFolder1.Execute then
    Edit1.Text := JvBrowseFolder1.Directory;
    ChDir(Edit1.Text);
    Result := FindFirst ('*.mp3',faAnyFile,sr);//поиск по расширению
    lv1.Clear;//очистка компонента приемника
      While result=0 do
        Begin
       Result:=FindNext (sr);
      ListItem := lv1.Items.Add;
      for i:=0 to lv1.Items.Count -1 do
      ListItem.SubItems.Add(sr.name);
        End;
End;

Если открыть и выбрать в диалоге каталог, то все работает нормально, а если каталог не выбирать , а нажать отмена то выдает ошибу (FileNotFound)... что сделать чтобы ошибка не выводилась, а просто закрывался диалог????

[DoomGamer]

Попробуй как-нибудь так.

begin
    if JvBrowseFolder1.Execute then
      begin
        Edit1.Text := JvBrowseFolder1.Directory;
        ChDir(Edit1.Text);
        Result := FindFirst ('*.mp3',faAnyFile,sr);//поиск по расширению
        lv1.Clear;//очистка компонента приемника
        While result=0 do
          Begin
            Result:=FindNext (sr);
            ListItem := lv1.Items.Add;
            for i:=0 to lv1.Items.Count-1 do
            ListItem.SubItems.Add(sr.name);
          End;
      end;
End;

[Noor]

СПС ... работает !!!!