如何在DELPHI中向FILE（TXT），写入换行？

Question

procedure TForm1.Button_createClick(Sender: TObject);
var
  bytedata  :byte;
  i :longint;
begin
  Reset(sourceF);
  rewrite(targettxt);  i := 0;
  seek(sourceF,0);
  while not  eof(sourceF) do
       begin
           Read(sourceF,bytedata);           write(targettxt,'0x'+inttohex(bytedata,2)+',');           inc(i);
           if (i mod 20 = 0) then
             write(targettxt,);//？？？？？想写一个换行的东西进去，打开TXT时便于观看
       end;
    CloseFile(sourceF);
    CloseFile(targettxt);
    showmessage('TXT文件已经生成');end;

Answer 1

write(targettxt,#13);
             write(targettxt,#10);