快来帮帮我。

[ljhsoft]

小弟最近比较赖，什么都不想动脑子，请各位帮我写一个很简单的函数，要求如下：
功能：列出所目录下所有符合条件的文件到TString对象中
int __fastcall ReadFileName(AnsiString FilePath,bool IncludeSubDir,TStringList *ls)
参数说明：FilePaht为要列出的路径，包括文件通配符；
IncludeSubDir是否包括子目录；
ls为存放合要求的路径和文件名称。
返回值：为列出的个数；
提示： 最后使用Windows API函数FindFiles和FindNext，如果IncludeSubDir为true, 则要查找所有子目录，可以使用递归的方法实现。

分数不是问题，我有九百多分留着没有用，我会根据实现的过程和程序书写风格给分的，决不会少于50分!谢谢！