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

procedure TForm1.Button1Click(Sender: TObject);
var fs:TFileStream;
    Binary: Array of Byte;
begin
  if Opendialog1.Execute then
  try
      //Einlesen der Datei
      fs:=TFileStream.Create(Opendialog1.FileName, fmOpenRead);
      //Länge des Arrays setzten
      setLength(Binary,fs.Size);   //Oder muss die Größe noch durch 8 gerechnet werden?

      //Und nu?

  finally
      fs.Free;
  end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject); 
var fs:TFileStream; 
    Binary: Array of Byte; 
begin 
  if Opendialog1.Execute then 
  try 
      //Einlesen der Datei 
      fs:=TFileStream.Create(Opendialog1.FileName, fmOpenRead); 
      //Länge des Arrays setzten 
      setLength(Binary,fs.Size);
      fs.Read(Binary[0], fs.Size);
      for i:=0 to length(Binary) do
      begin
        //Binaer ist ein Array von 0..255 wo die entsprechenden Binärcodes gespeichert sind
        s:=s+Binaer[Binary[i]];
      end;
      Memo1.text:=s;
  finally 
      fs.Free; 
  end; 
end;					

1:

 s:=s + Binaer[Binary[i]];					

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:
33:
34:
35:
36:
37:
38:
39:

procedure TForm1.BtOpenClick(Sender: TObject);
var fs:TFileStream;
    Binary: Array of byte;
    i,k:integer;
    s:string;
begin
  if ODDatei.Execute then
  try
      fs:=TFileStream.Create(ODDatei.FileName, fmOpenRead);
      setLength(Binary,fs.Size);
      fs.Read(Binary[0], fs.Size);
      k:=1;
      //Größe des Strings...Brauch ich die +1? War mir nicht so sicher, da ein String bei 1 anstatt bei 0 anfängt
      setLength(s,fs.Size*8+1);
      for i:=0 to high(Binary) do
      begin
        //Hier wird dann einzeln zugewiesen
        s[k]:=Binaer[Binary[i]][1];
        inc(k);
        s[k]:=Binaer[Binary[i]][2];
        inc(k);
        s[k]:=Binaer[Binary[i]][3];
        inc(k);
        s[k]:=Binaer[Binary[i]][4];
        inc(k);
        s[k]:=Binaer[Binary[i]][5];
        inc(k);
        s[k]:=Binaer[Binary[i]][6];
        inc(k);
        s[k]:=Binaer[Binary[i]][7];
        inc(k);
        s[k]:=Binaer[Binary[i]][8];
        inc(k);
      end;
      MBinaer.Text:=s;
    finally
      fs.Free;
    end;
end;					

1:
2:

for i:=0 to high(Binary) DIV 2 do
//...					

1:
2:

for i:=(high(Binary) DIV 2) +1 to high(Binary) do
//...