delphi文件读取与写入有关问题

delphi文件读取与写入问题
我有一个文本文档，有若干条记录，每条记录的数据是用逗号隔开。每条记录占一行
如
20130301，1,2,3,4,5,6
20130302，1,2,3,4,5,6
........
现在我想把把这些记录全部读取然后写入另外一个无类型文件中，我想把每行当作一条记录，然后写入到无类型文件中去。中间肯定会用到循环，但不知道具体该如何操作，求助各位高手 Delphi 文档
[解决办法]
把回车换行都删掉是不是就行了。。。
[解决办法]

procedure TfrmMain.Button1Click(Sender: TObject);
Var
  TestFile,WriteFile:TextFile;
  FileName,WriteFileName,ReadText:string;

begin
  FileName:=ExtractFilePath(Application.ExeName) + 'Test.txt';
  WriteFileName:=ExtractFilePath(Application.ExeName) + 'WriteText.txt';

  If Not FileExists(FileName) Then
  begin
    ShowMessage('文件不存在！')
  end
  Else
  begin
    AssignFile(TestFile,FileName);
    Reset(TestFile);

    AssignFile(WriteFile,WriteFileName);
    Rewrite(WriteFile);

    while not Eof(TestFile) do
    begin
      //读取一行
      Readln(TestFile,ReadText);

      //写入一行
      Writeln(WriteFile,ReadText);
    end;

    CloseFile(TestFile);
    CloseFile(WriteFile);
  end;

end;