有什么办法解决转出来文本文件内容最后多几行空行！

Question

有什么办法解决转出来文本文件内容最后多几行空行！ 
procedure TForm1.suiButton2Click(Sender: TObject); 
var x,y:integer; 
begin 
    SaveDialog1.Filter:='*.txt'; 
    if not SaveDialog1.Execute then exit; 
    AssignFile(TextFile,ExtractFileName(SaveDialog1.FileName)); 
    Rewrite(TextFile); 
        for x:=1 to suiStringGrid1.RowCount do begin 
          for y:=0 to 3 do 
        Write(TextFile,space(suiStringGrid1.Cells[y,x],15,y)); 
        Write(TextFile,#13+#10); 
      end; 
      CloseFile(TextFile); 
            end; function space(s:string;n:integer;y:integer):string; 
var i:integer; 
begin 
if length(s) <n then 
  for i:=1 to n-length(s) do 
    if (y=0) or (y=1) then s:=s+' ' else s:=' '+s; 
    result:=s; 
    end; 在15行后多空行不知如何解决！！

Answer 1

      Writeln(TextFile,''); 

Answer 2

procedure TForm1.suiButton2Click(Sender: TObject); 
var x,y:integer; 
begin 
    SaveDialog1.Filter:='*.txt'; 
    if not SaveDialog1.Execute then exit; 
    AssignFile(TextFile,ExtractFileName(SaveDialog1.FileName)); 
    Rewrite(TextFile); 
        for x:=1 to suiStringGrid1.RowCount -1 do begin 
          for y:=0 to 3 do 
        Write(TextFile,space(suiStringGrid1.Cells[y,x],15,y)); 
        Write(TextFile,' '); 
      end; 
      CloseFile(TextFile); 
            end; function space(s:string;n:integer;y:integer):string; 
var i:integer; 
begin 
if length(s) <n then 
  for i:=1 to n-length(s) do 
    if (y=0) or (y=1) then s:=s+' ' else s:=' '+s; 
    result:=s; 
    end; 

Answer 3

Delphi(Pascal)
   判断是正确的，但不是一行一行的数据。我想要的文本文件内容数据如下：
11111111
22222222
33333333
44444444
.....
99999999
          

Answer 4

procedure TForm1.suiButton2Click(Sender: TObject); 
var x,y:integer; 
begin 
    SaveDialog1.Filter:='*.txt'; 
    if not SaveDialog1.Execute then exit; 
    AssignFile(TextFile,ExtractFileName(SaveDialog1.FileName)); 
    Rewrite(TextFile); 
        for x:=1 to suiStringGrid1.RowCount -1 do begin 
          for y:=0 to 3 do 
        Write(TextFile,space(suiStringGrid1.Cells[y,x],15,y)); 
        Write(TextFile,' '); 
      end; 
      CloseFile(TextFile); 
            end; function space(s:string;n:integer;y:integer):string; 
var i:integer; 
begin 
if length(s) <n then 
  for i:=1 to n-length(s) do 
    if (y=0) or (y=1) then s:=s+' ' else s:=' '+s; 
    result:=s; 
    end;