请问文件保存问题（怎样去掉文本末尾的#10#13字符）(200分)

在delphi 中 我用下面的方法将一个字串保存到一个文件中
可是在保存后文本文件的最后两个字符总是#10#13，
请问怎么才能不要这两个字符。
var
S: string;
S:= '12345';
with TStringList.Create do
try
Add(S);
SaveToFile('temp.txt');
finally // wrap up
Free;
end; // try/finally
谢谢

procedure TForm1.Button1Click(Sender: TObject);
var
fw: File of Byte;
s: String;
buffer: Array[0..15] of Byte;
begin
s := '12345';
StrPCopy(@buffer[0],s);
AssignFile(fw,'temp.txt');
Rewrite(fw);
BlockWrite(fw,buffer,5);
CloseFile(fw);
end;

var
S: string;
S:= '12345';
with TStringList.Create do
try
Add(S);
<font color=red>
//直接用Write不可以吗？干吗非要用BlockWrite?
AssignFile(fw,'temp.txt');
Rewrite(fw);
Write(fw,buffer);
CloseFile(fw);
</font>
finally // wrap up
Free;
end; // try/finally

to reboot
你的方法中还得写明Rewrite(FW,<font color=red>1</font>);
按一个字节的缓冲来写。

多人接受答案了。