1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Stream.LoadFromFile(Filename);
    Stream.Position := 0;
    Data := Stream.Memory;
    for Loop := 0 to (Stream.Size div 4) + 1 do
    begin
      Data^ := Data^ xor $00000F7E;
      Inc(Data);
    end;
  except
    Stream.Position := 0;
    Stream.Size := 0;
    Result := False;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Stream.LoadFromFile(Filename); // Stream ist vom Typ TMemoryStream?
    Stream.Position := 0;
    Data := Stream.Memory;   // Zeiger auf den Anfang der Daten
    for Loop := 0 to (Stream.Size div 4) + 1 do   // Die Daten in 4-Byte Blöcke aufteilen
    begin
      Data^ := Data^ xor $00000F7E;    // Jeden Block einlesen und mit $F7E  XOR IN DF, DLen
      Inc(Data);    // Zeiger um vier erhöhen, um den nächsten Block zu xoren
    end;
  except   // falls ein Fehler auftritt
    Stream.Position := 0;    // Position zurücksetzen
    Stream.Size := 0;   // Größe  -"-
    Result := False;   // - ohne Worte -
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Source.LoadFromFile(Filename);
     Stream.Clear;
     Index := 1;
     while Source.Read(Value, SizeOf(Value)) = SizeOf(Value) do
     begin
       Value := Value xor $00000F7E;
       Stream.WriteBuffer(Value, SizeOf(Value));
       Inc(Index);
       if Index = $1000 then
       begin
         if Source.Read(Value, SizeOf(Value)) <> SizeOf(Value) then
           Break;
         Index := 1;
       end;
     end;
     Result := True;
   finally
     Source.Free;