Как записать 256 ASCII символов?

[s.Creator]

После кодирования сохраняйте в массиве байт (PByte или PByteArray)
сохраняйте в файл
обратно загрузка ввиде массива байт после раскодирования в string

когда-то делал где-то так:

var
  S: string;
  Size: Integer;
  b:PByteArray;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
//...........
  try
   Size:= Length(S);
   b := Pointer(S);
   if Crypto then CriptBuf(b, Size);

  Stream.WriteBuffer(b^,Size);
  finally
    Stream.Free;
  end;

И обратно:

var
  Size: Integer;
  S: string;
  Stream: TStream;
  b:PByteArray;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Size := Stream.Size;
    SetString(S, nil, Size);
    b:= Pointer(S);
    Stream.Read(b^, Size);
    if Crypto then CriptBuf(b, Size);
  finally
    Stream.Free;
  end;

(это вырезки из досихпор работающего модуля)