[M.A.D.M.A.N.]

Если строка более 255 байт, могут возникнуть проблемы при записи ее в TFileStream.
Можно записать так:

Код:

var a:char;
begin
for i:=1 to length(text) do
  begin
    a:=text[i];
    FileStream.Write(a,1);
  end;