FindFirst(), FindNext(), FindClose()등을 이용하면 됩니다.

[사용 예]
// C 드라이브의 실행파일을 찾아 메모에 표시하기

TSearchRec sr;
Memo1->Clear();
if(FindFirst("C:\\*.exe", faArchive, sr) == 0) //찾는 파일이 있으면..
{
    do{
        Memo1->Lines->Add(sr.Name); // 파일 이름을 메모에 추가
    }while(FindNext(sr) == 0); //다음 파일로...다음찾은 파일이 없을때까지 반복
}
FindClose(sr); //찾기 종료..

// FindFirst()의 2번째 인자(faArchive 위치)에 들어 갈수 있는 것들..
//        faReadOnly   : Read-only files
//        faHidden     : Hidden files
//        faSysFile    : System files
//        faVolumeID   : Volume ID files
//        faDirectory  : Directory files
//        faArchive    : Archive files
//        faAnyFile    : Any file

인자를 보시면 알겠지만...파일만 찾는게 아니고 디렉토리도 찾을 수 있는듯 합니다.
(이것은 안 해 봐서.....가정. 해보시구 답글 달아 주세욥.....ㅋㅋ)