极简单问题，先来者得分！

Question

在此感谢　huazaijiajia()　及其他兄弟！
我已基本写完，但是记录之间并没有换行（.txt文本里的记录全都连到一块了），用了＃13也未曾实现,困惑...请帮助修改。 
部分程序：
....................
   with AQgzhzmx do
    begin
      Close;
      Sql.Clear;
      Sql.Add('Exec dbo.sp_gzhzmx '''+Trim(Edit1.Text)+''','''+Trim(Edit2.Text)  +'''');
      OPen;
      StrOut := TStringList.Create;
      while not AQgzhzmx.Eof do
      begin
        for I := 0 to FieldCount -1 do
        begin
          ExpStr := ExpStr + AQgzhzmx.Fields[I].AsString + ' ';
        end;
        AQgzhzmx.Next;
      end;
      StrOut.Add(ExpStr);
      StrOut.SaveToFile('D:\导出员工工资汇总.txt');
      StrOut.Destroy;
    end;
.............................

Answer 1

StrOut := TStringList.Create;
      while not AQgzhzmx.Eof do
      begin
        for I := 0 to FieldCount -1 do
        begin
          ExpStr := ExpStr + AQgzhzmx.Fields[I].AsString + ' ';
        end;
        ExpStr := ExpStr + #13 + #10;
        AQgzhzmx.Next;
      end;
      StrOut.Add(ExpStr);

Answer 2

.......
      AQgzhzmx.Next;
      StrOut.Add(ExpStr);
    end;
这样，就已经换行了