특정디렉토리내에있는 모든파일들을 찾아서 리스트박스에 넣을려고
다음과같은 소스를 이게시판에서 구해서 해보는데
리스트박스에는 'f-c:다운로드' 하나만 나타날뿐 파일과 하위디렉토리들이
나타나지를 않습니다.
모드나타나게 할려면 어떻게해야할지...

부탁드립니다.

procedure TForm1.Button1Click(Sender: TObject);
var
   Searchrec : TSearchrec;
   i : integer;
   st : string ; //경로조립할 문자열
begin
  st := 'c다운로드' + '*.*';
  FindFirst(st, faAnyFile, SearchRec);
  i := 0;
  while i = 0 do
  begin
    if (Searchrec.Name = '.') or (Searchrec.Name = '..') then
    begin
      i := FindNext(SearchRec); //다음 디렉토리, 화일을 찾음
      Continue;
    end;

    if DirectoryExists('c다운로드' + '' + SearchRec.Name) then //찾은게 디렉토리면..
    begin
      st := 'c다운로드' + '' + Searchrec.Name;
      ListBox1.Items.Add('D-'+st );

      i := FindNext(Searchrec);
      Continue;
    end;

    //찾은게 파일일 경우..
    st := 'c다운로드' + '' + SearchRec.Name;
    ListBox1.Items.Add('F-'+st);
    i := FindNext(SearchRec);
  end;
end;