[Aristarh Dark]

И пишет скорее всего 4 байта?
Попробуй так:

Код:

var
  f: TMemoryStream;
  s: ShortString;
begin
  f := TMemoryStream.Create;
  f.Write(s, SizeOf(s));
  f.SaveToFile(filename);
  f.Free;
end.

если получится, то подумай почему.