请教string转换pchar的问题

Question

procedure TFrm_Main.WriteLog(LogStr: string);
.......
    LogStr := FormatDateTime('yyyy"/"mm"/"dd  hh:nn:ss  ', Now) + LogStr + #13#10;
//2007 4 9 修改日志内容日期格式
    FFileStream.Write(PChar(LogStr)^, Length(LogStr));程序运行时有时会出现漏记的问题,概率约在万分之一,我找不出其他的问题,会不会这里转换出问题了,请大家指点

Answer 1

LogStr   :=   FormatDateTime('yyyy"/"mm"/"dd     hh:nn:ss     ',   Now)   +   LogStr   +   #13#10; 
LogStr会不停地增长，对吗？
代码没有问题测试：
 stream := TFileStream.Create('C:\t.txt',  fmCreate );
  for i := 0 to 10000 do begin
    LogStr   :=   FormatDateTime('yyyy"/"mm"/"dd     hh:nn:ss     ',   Now)   +   #13#10;
    //2007   4   9   修改日志内容日期格式
    stream.Write(Pointer(LogStr)^,   Length(LogStr));
  end;  stream.Free;