怎么查找特定文件

如何查找特定文件
各位大虾,小弟有问题请教
给定一个字符串,需要在文件夹中查找包含该字符串的文伯名,如果存在则取出该文件的文件名~~~
比如一个字符串1234要在一个特定的文件夹中搜索包含该字符串的文件名,我试过用filesearch和findfirst,感觉都不行,请赐教


[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
Rec: TSearchRec;
begin
FindFirst( 'c:\windows\*1234*.* ', faArchive, Rec);
ListBox1.Items.Add(Rec.Name);
while FindNext(Rec) = 0 do
ListBox1.Items.Add(Rec.Name);
FindClose(Rec);
end;