[zNk]

Короче, я пытался записывать таким способом, опишу только основную логику:

Код:

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

При дальнейшем считывании ошибка... Что делать?