BCB遍历文件夹解决方案

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


知道的请告诉我。谢谢
[解决办法]

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);
}