很菜的一个有关问题，当小弟我打开一个路径，如何把该文件夹下面的所有文档的文件名导入memo面板中

很菜的一个问题，当我打开一个路径，怎么把该文件夹下面的所有文档的文件名导入memo面板中？
如题，刚刚学习delphi，请各位高手最好给代码，谢谢了

------解决方案--------------------
直接用Filelistbox吧。在win3.1的页下。
------解决方案--------------------
赞同楼上意见。

如果楼主就是要用Memo，可以用FindFirst、FindNext、FindClose系列函数，如下例：(如果该目录下的子目录内容也要同时导出，需要遍历)

const
YourPath = 'c:\ ';//这是你要列出的文件夹路径，注意以 \ 结束
YourFileType = '*.* ';//这是定义查找什么样的文件名
var
F : TSearchRec;
Found : integer;
begin
Found := FindFirst(YourPath+YourFileType, faAnyFile, F);
while Found = 0 do
begin
Memo1.Lines.Add(F.Name);
Found := FindNext(F);
end;
FindClose(F);
end;