关于用文件流写文件的问题，请大家帮忙

Question

我用如下代码写文件：
procedure TForm1.Button1Click(Sender: TObject);
var
   pstr:Pchar;
   mestr:string;
   FS:TFilestream;
begin
   FS:=TFileStream.Create((Extractfilepath(Application.ExeName)+'123.txt'),fmCreate );
   mestr:='1111111';
   pstr:=Pchar(mestr);
   FS.Writebuffer(pstr^,Length(pstr));   #我想把'aaaaaaaa'写到第二行
   mestr := 'aaaaaaaa';
   pstr:=Pchar(mestr);
   FS.Writebuffer(pstr^,Length(pstr));end;
但结果却是：1111111aaaaaaaa，也既是写成一行了，如果才能换行写呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  pstr:PAnSichar;
  mestr:AnSIstring;
  FS:TFilestream;
begin
  FS:=TFileStream.Create('C:\123.txt',fmCreate );
  mestr:='1111111'+#13#10;
  pstr:=PAnsichar(mestr);
  FS.Writebuffer(pstr^,Length(pstr));  mestr :=#13#10'aaaaaaaa';
  pstr:= PAnsichar(mestr);
  FS.Writebuffer(pstr^,Length(pstr));end;

Answer 2

写成下行的样子即可
  mestr:='1111111'#13#10;