利用SaveToFile方法在保存文件时，如何能去掉文本结尾的回车符号(50分)

Var S : TStrings;
Str : String

Begin
Str := 'Test';//换成PChar类型也不能去掉回车符号
S := TStringList.Create;
S.Add[Str];
S.SaveToFile('C:/Test.TXT')

End;

用UltraEdit以二进制的方式打开Test.TXT文件，赫然发现里面有0D0A，我想去掉这个回车符号。好像这个符号时string类型自动加的。试了很多方法都不能去掉，包括内存拷贝等。

放弃tstrings,改用tmemorystream
var m:tmemorystream;
str:string;
begin
str:='test';//如果要加回车改成str:='test'+#13#10;
m:=tmemorystream.create;
m.write(pointer(str)^,length(str))
m.savetofile('c:/test.txt');
m.free;
end;