Stream's. Запись в тело файла строки.

[Человек_Борща]

сабж отказывается работать на XE3.

var
  s: string;
  L: Integer;
begin
  s := aStr;
  L := Length(s);
  aStream.Write(L, SizeOf(L));
  aStream.Write(s[1], Length(s) * SizeOf(Char));
end;

Не работает.
В результат выпадает это:

>  с т р о к а

[Пепел Феникса]

а вам нужна двухбайтовая или однобайтовая строка?

[Человек_Борща]

2-х байтовая.
Сейчас пользую 1-о байтовую.

[Человек_Борща]

Посмотрел, как это делается в TStringStream..