怎么从某一txt读出数据写入到另个一txt中

如何从某一txt读出数据写入到另个一txt中？
我只写了一部分，从txt中读出字符串，但不知道如何写：
var
  Form1: TForm1;
  a,b:string;
  txtlist,txtlist1:TStringList;
  m:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
txtlist:=TStringList.create;
txtlist1:=TStringList.create;
txtlist.LoadFromFile('c:\a.txt');
txtlist1.LoadFromFile('c:\b.txt');
for m:=0 to txtlist.count-1 do
b:=txtlist.strings[m];
下面再如何写？

end;

[解决办法]
txtlist1.text := txtlist1.text + txtlist.text;
如果文件小，你的程序是没有问题的
如果文件较大，应该使用文件读写：

Delphi(Pascal) code

var  CmdFile: TextFile;begin    try       AssignFile( CmdFile, sFile );      if FileExists( sFile ) then        Append(CmdFile)      else        Rewrite( CmdFile );        Writeln( CmdFile, 'aaaaa' );    finally      CloseFile(CmdFile);    end;end;
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
txtlist:=TStringList.create;
txtlist1:=TStringList.create;
txtlist.LoadFromFile('c:\a.txt');
txtlist1.LoadFromFile('c:\b.txt');
txtlist1.Text := txtlist1.Text + txtlist.Text;
txtlist1.SaveToFile('C:\B.txt');
end;
[解决办法]
txtlist1.Text:=txtlist1.Text + miwen;
[解决办法]
使用TStringList的文本文件导入导出就可以了
[解决办法]
for m:=0 to txtlist.count-1 do
begin
 b:=txtlist.strings[m];
 miwen:=MD5Print(MD5String(b));
 txtlist1.Text:=txtlist1.Text + miwen;
end;

txtlist1.SaveToFile('c:\b.txt');