[AleD]

для этой самой кнопки пропиши это:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  dir: String;
  procedure AddFile(const f: String);
  begin
    Memo1.Lines.Add(f); //здесь добавляй найденный файл f куда надо
  end;
  procedure AddDir(const d: String);
  var
    rec: TSearchRec;
    a: Integer;
    b: String;
  begin
    if not(DirectoryExists(d))then Exit;

    a := FindFirst(d+'\*', faAnyFile or not faSymLink, rec);
    while(FindNext(rec)=0)do
    begin
      if(rec.Name='.')or(rec.Name='..')then Continue;

      b := d+'\'+rec.Name;
      if(FileExists(b))then
        AddFile(b)
      else
      if(DirectoryExists(b))then
        AddDir(b);
    end;
  end;
begin
  dir := sShellTreeView1.SelectedFolder.PathName;
  Memo1.Lines.Clear;
  AddDir(dir);
end;

если нужны относительные пути, юзай ExtractRelativePath
может быть 5 минут моего времени стоит хотя бы "+"?