如何到指定路径读取指定扩展名的文件！(50分)

您好，请帮忙：
如何到指定路径去扫描指定扩展名的文件（如：*.msg）。
并读取他的分段内容。（文件的格式为：EML:hs@sohu.com||要发送的email内容）

先用FindFirst, FindNext, FindClose函数取得指定目录下指定扩展名的文件
对每一个文件作如下处理：
一行行的读入到字符串S中，然后用Pos, Copy函数分解字符串。

能说的具体点吗？因为我是初学者。谢谢！

参考下面,自己改进
procedure TForm1.Button1Click(Sender: TObject);
var SearchRec: TSearchRec;
begin
if FindFirst('c:/*.bat',faDirectory,SearchRec) = 0 then
listbox1.Items.Add(searchrec.Name);
while FindNext(SearchRec)= 0 do
listbox1.Items.Add(Searchrec.Name);
FindClose(SearchRec);
end;

//我做了个例子，你看一下：
procedure TForm1.Button1Click(Sender: TObject);
var
SR : TSearchRec;
lst_Str : TStringList;
begin
lst_Str := TStringList.Create;
try
if FindFirst('c:/temp/*.bmp', faAnyFile, SR) = 0 then
begin
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr <> faDirectory) then
lst_Str.Add(SR.Name);
while FindNext(sr) = 0 do
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr <> faDirectory) then
lst_Str.Add(SR.Name);
FindClose(sr);
end;
ListBox1.Items.Text := lst_Str.Text;
finally
lst_Str.Free;
end;
end;

多人接受答案了。