关于写入换行的有关问题

关于写入换行的问题
小弟在写入一个TFileStream   类时在读出一个
Rec=packed   record
begin
s1:Array[0..6]of   char;
s2:Array[0..6]of   char;
s3:Array[0..6]of   char;
end;
的记录后,无法将Rec写入文件,写入后无法自动换行。
文件格式如下:
  000000   000000   000000
-111111-111111-111111
用write(rec,sizeof(rec));写入文件后变为如下格式
  000000   000000   000000-120000-090000   006639
请问哪位大侠个解决一下。

------解决方案--------------------
每次写入后再写入#13+#10不就行了