如何读取某个路径下的所有文件或部分文件(如*.INI)的到列表中。(100分)

如何读取某个路径下的所有文件或部分文件(如*.INI)的到列表中。

一个例子:
function 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;
使用:
; 新建一个Application,加上一个ListBox,一个Button
在Button的OnClick事件中写:
; GetFileList('*.PAS',ListBox1.Items);

to 杜宝:
　　请问如何指定路径？先谢过。

老大,拜托,这个例子行了吧?
GetFileList('C:/*.*',ListBox1.Items);

to 杜宝:
　　thank you.