Delphi-Quellcode:
for I := 1 to mem.Size do
begin
mem.Position := I;
Ich meine, dass ein TFileStream.Position bei 0 beginnt.
In der Routine wird die Schleifenvariable mit 1 initialisiert und
läuft über die Länge der Datei, so dass die neue Datei um 1 Byte größer
wird.
Wenn du die Datei verschlüsselst und entschlüsselst, so ist die erzeugte
Datei um 2 Byte größer als die orginale Datei.
