1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);

const filename = 'c:\dokumente und einstellungen\jakob\eigene dateien\pascal\delphi\chiffre06\Bauplaene\WBpA.bpl';

var arr: array of byte;
    n,byt,rand: byte;
    Geschriebene: integer;

begin
  With TFileStream.Create(filename,fmCreate) do try
    Randomize;
    SetLength(arr,256);
    for n := 0 to 255 do arr[n] := n;    //hier wird das array mit jeder Zahl von 0 bis 255 einmal belegt
    for n := 0 to 255 do begin      
      rand := Random(Length(arr));    //Zufallszahl < als Länge des arrays
      byt := arr[rand];        //der Wert der in der Datei stehen soll ist ein zufälliges element der datei
      arr[rand] := arr[Length(arr) - 1];  //das schon verwendete Byte durch das letzte Element ersetzt
      SetLength(arr,Length(arr) - 1);    //Array wird um 1 verkürzt

      Geschriebene := Write(byt,1);    //Geschriebene ist immer 1, wie es sein soll
      ListBox1.items.Add(intTostr(byt));  //Hier wird das byt angehängt
    end;
  finally
    Free;
  end;
end;					

1:

Listbox1.SaveToFile('C:/blubb.txt');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

const
  coFilename = 'D:\WBpA.dat';

var
  Arr: array[Byte] of byte;
  A,B,H,N: Byte;
  I: Integer;

begin
  Randomize;
  With TFileStream.Create(cofilename,fmCreate) do
  try
    for I := 0 to 255 do Arr[I] := I;    //hier wird das array mit jeder Zahl von 0 bis 255 einmal belegt
    for I := 0 to 1023 do
    begin
      A := Random(256);
      B := Random(256);
      H := Arr[A];
      Arr[A] := Arr[B];
      Arr[B] := H;
    end;
    // zum Testen bzw zum Eintrag in die ListBox
    for I := 0 to 255 do begin
      Write(Arr[I],1);    //Geschriebene ist immer 1, wie es sein soll
      ListBox1.Items.Add(IntTostr(Arr[I]));  //Hier wird das byt angehängt
    end;
    // sonst 
    // Write (Arr[0],256);
  finally
    Free;
  end;
end;