Invalid Filename... delphi 7

[Nice42ru]

Все здравствуйте!
Вот столкнулся с такой проблемой, при выборе папки дальнейшие действия не происходит, то есть все что функция FindIt нашла, не добавляется в мой ListBox

Вот сама функция:

if FindFirst(Path+Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr = faDirectory) then
      if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
        s:='';
        for i:=0 to level-1 do
          s:=s+'    ';
        aListBox.items.Add(path+SR.Name + '\');
        Inc(level);
        if spaces then
          FindIt(Path+sr.Name+'\',ext,aListBox,true,level)
        else
          FindIt(Path+sr.Name+'\',ext,aListBox);
        Dec(level);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Вот обработчик кнопки:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i : integer;
    F : TextFile;
    ExB: WORD;
    chosenDirectory : string;
begin
if SelectDirectory('Выберите каталог', '', chosenDirectory)
  then
  begin
  ShowMessage('Выбранный каталог '+chosenDirectory);
  FindIt(chosenDirectory,'*.*', ListBox1);
 if listbox1.items.count-1<0
 then
 begin
ExB:=MessageBox(handle,pchar('Папка пуста!'),pchar('Ошибка!'),16);
if Exb=IDOK then
halt;
 end;
    for i:=0 to ListBox1.Items.Count-1 do
    begin
      AssignFile(F,listbox1.items[i] + Edit1.Text + '.txt');
      Rewrite(F);
      Write(F, memo1.text);
      CloseFile(F);
    end;
ExB:=MessageBox(handle,pchar('Всё прошло успешно!'),pchar('Все Ок!'),64)
end
  else ShowMessage('Выбор каталога прервался');
end;

Либо вот обработчик тут все добавляется но одна проблема, программа должна лежать в той папке которую надо пропатчить! а я хочу сделать выбор папки чтобы не тоскать программу везде!

procedure TForm1.BitBtn1Click(Sender: TObject);

var i : integer;
    F : TextFile;
    ExB: WORD;
begin
FindIt(ExtractFilePath(Application. ExeName),'*.*', ListBox1);
 if listbox1.items.count-1<0
 then
 begin
ExB:=MessageBox(handle,pchar('Папка пуста!'),pchar('Ошибка!'),16);
if Exb=IDOK then
halt;

 end;
    for i:=0 to ListBox1.Items.Count-1 do
    begin
      AssignFile(F,listbox1.items[i] + Edit1.Text + '.txt');
      Rewrite(F);
      Write(F, memo1.text);
      CloseFile(F);
    end;
ExB:=MessageBox(handle,pchar('Всё прошло успешно!'),pchar('Все Ок!'),64);
end;

[spider13]

Приведи полный код функции FindIt

[Nice42ru]

Прошу прощения явно криво скопировал!
вот:

procedure FindIt(path, ext: string; aListBox: TListBox;
  spaces: boolean = false; level: integer = 0);
var
  SR: TSearchRec;
  s: string;
  i: integer;
begin
if FindFirst(Path+Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr = faDirectory) then
      if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
        s:='';
        for i:=0 to level-1 do
          s:=s+'    ';
        aListBox.items.Add(path+SR.Name + '\');
        Inc(level);
        if spaces then
          FindIt(Path+sr.Name+'\',ext,aListBox,true,level)
        else
          FindIt(Path+sr.Name+'\',ext,aListBox);
        Dec(level);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

[Nice42ru]

Мне кажется FindIt работает только с файлами, тоесть зависит от файла, а с папками она не работает... Если я прав есть ли другая процедура не требующая файлов для работы а можно бы было просто указать папку?

[spider13]

хм, у меня все добавляет)

[Nice42ru]

Да, решил проблему, нужно было в начале процедуры сделать добавление "/" и все =)