如何取得当目前下的文件列表(20分)

如题！

var
SearchRec: TSearchRec;
begin
FindFirst('*.*', faAnyFile, SearchRec);
repeat
ShowMessage(SearchRec.Name);//SearchRec.Name即是文件名
until (FindNext(SearchRec)<>0);
FindClose(SearchRec);
end;