BCB遍历文件夹解决思路

BCB遍历文件夹
BCB里面有没有遍历文件夹的类库？我想做的是选择一个文件夹中的一个文件或者一个文件夹，然后在一个Memo中输出那个文件或者文件夹同目录下的所有的文件和文件夹！！！


知道的请告诉我。谢谢

[解决办法]

C/C++ code

int __stdcall CrnListDir(String strDir, TStrings *lst){    WIN32_FIND_DATA wfd;    lst->Clear();    HANDLE hFind = ::FindFirstFile((strDir + "\\*.*").c_str(), &wfd);    if(INVALID_HANDLE_VALUE != hFind)    {        do        {            if (strcmp(wfd.cFileName, ".") !=0 && strcmp(wfd.cFileName, "..") != 0)            lst->Add(wfd.cFileName);        }while(::FindNextFile(hFind, &wfd));    }    ::FindClose(hFind);    return lst->Count;}void __fastcall TForm1::Button1Click(TObject *Sender){    CrnListDir("C:\\", Memo1->Lines);}