[lmikle]

Ну вот пример (только сохранение, бо как лениво очень )

Код:

const
  Data = 'This is data string';
var
  B : Byte;
  SaveStream : TMemoryStream;
  DiskStream : TFileStream;
begin
  SaveStream := TMemoryStream.Create;

  // Тут пишем данные...
  SaveStream.WriteBuffer(Data[1],Length(Data));

  SaveStream.Seek(0,0);

  DiskStream := TFileStream.Create('myfile.dat',fmCreate);
  While SaveStream.Position < SaveStream.Size Do
    Begin
      SaveStream.ReadBuffer(B,1); // читаем
      B := B XOR $54; // кодируем
      DiskStream.WriteBuffer(B,1); // сохраняем на диск
    End;
  DiskStream.Free;
  SaveStream.Free;
end;