模糊查找硬盘文件(50分)

我这样调用GetFileList('D:/MyDoc',ListBox1);可以得到D:/MyDoc下的所有文件
如果D:/MyDoc有这样（ab1.txt，abc2.txt，cc.txt）几个文件，我怎么得到ab1.txt，abc2.txt这两个文件？也就是得到文件名中含有“a”的文件，类似SQL里的 Like %a% 查找 。
GetFileList(FileNames:String;FileList:TStrings):Boolean;
var
SearchRec: TSearchRec;
i: integer;
s: string;
begin
i := FindFirst(FileNames, faAnyFile, SearchRec);
if i <> 0 then
begin
result := false;
exit;
end;
while i = 0 do
begin
s := SearchRec.Name;
if (s <> '.') and (s <> '..') then
FileList.Add( s);
i := FindNext(SearchRec);
end;
FindClose(SearchRec);
result := true;
end;

我知道答案了，我删除还不行吗？

找到以后再删除。