数据导出问题(0分)

如何将一个文件夹下的多个文本文件（文件形式是：字符串组成的规则表；并且所有文本文件形式一致）一次性的读出来，读到一个新的表中，以一个新的文本文件新式输出。（即连接成一个大的字符串表）。

看看这个是否满足需求，不过出错部分没有处理。呵呵。
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
StrList1, StrList2: TStringList;
begin
StrList1 := TStringList.Create;
StrList2 := TStringList.Create;
if FindFirst('C:/Temp/*.txt', faAnyFile, SR) = 0 then
begin
StrList1.LoadFromFile('C:/Temp/'+SR.Name);
StrList2.AddStrings(StrList1);
while FindNext(SR) = 0do
begin
StrList1.LoadFromFile('C:/Temp/'+SR.Name);
StrList2.AddStrings(StrList1);
end;
end;
StrList2.SaveToFile('C:/Temp/Finish.txt');
StrList1.Free;
StrList2.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
Path = 'C:/';
var
sr: TSearchRec;
FileAttrs: Integer;
StrLst : TStringList;
FileLst : TStringList;
begin
StrLst := TStringList.Create;
FileLst := TStringList.Create;
try
if FindFirst(Path+'*.txt', FileAttrs, sr) = 0 then
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
FileLst.LoadFromFile(Path+sr.Name);
StrLst.AddStrings(FileLst);
end;
while FindNext(sr) = 0do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
FileLst.LoadFromFile(Path+sr.Name);
StrLst.AddStrings(FileLst);
end;
end;
FindClose(sr);
end;
Memo1.Lines.Assign(StrLst);
finally
FileLst.Free;
StrLst.Free;
end;
end;

接受答案了.