如何将一个文本文件的内容读取，然后写入到另外一个文本文件

//请自行测试

procedure TForm1.Button3Click(Sender: TObject);
var
  Atext,btext:tstringlist;
  i:integer;
begin

   OpenDialog1.Execute;
   if OpenDialog1.FileName<>'' then begin
      atext:=Tstringlist.Create;
      btext:=Tstringlist.Create;
      atext.LoadFromFile(OpenDialog1.FileName);
      btext.Add('标题1');
      FOr i:=0 to atext.Count-1 do begin
          if (i mod 300 =0) and (i>0) then begin
             btext.SaveToFile('标题'+floattostr(i/300));
             btext.Clear;
             btext.Add('标题'+floattostr(i/300+1));
          end else
             btext.Add(atext[i]);
      end;
     atext.Free;
     btext.Free;
   end;

end;