如何切割TStringStream的最后N个字符?

我在写一些字符串到 TStringStream 用字符串分隔符将它们分开。

var
  Stream : TStringStream;
  i : integer;
  Separator : string;
begin
  Separator := '|';
  Stream := TStringStream.Create('');
  try
    i := 0;
    while(i < 5) do
    begin
      Stream.WriteString(IntToStr(i) + ' test' + Separator);
      Inc(i);
    end;

    Stream.Size := Stream.Size - Length(Separator) * SizeOf(Char);

    Stream.SaveToFile('.\test.txt');
  finally
    Stream.Free;
  end;
end;

在循环的末尾,我要删除最后一个分隔符:

Stream.Size := Stream.Size - Length(Separator) * SizeOf(Char);

它产生以下结果 test.txt

0 test|1 test|2 test|3 test|4 tes

SizeOf(Char) 德尔福XE7 是2,但看起来 TStringString