Binäre Datei in Array of Byte laden

[SyntaxXx]

Das habe ich jetzt mal gemacht.
So sieht das jetzt bei mir aus:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
    FileStream: TFileStream;
    myfile : file;
    i, filesizevalue: integer;
    fname: string;
begin

  FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
  setLength(bArray, FileStream.Size);
  FileStream.ReadBuffer(bArray, FileStream.Size);
  FileStream.Free;
end;

Aber wenn ich das starte, bekomme ich einen Fehler:
Erste Gelegenheit für Exception bei $00406637. Exception-Klasse $C0000005 mit Meldung 'access violation at 0x00406637: write of address 0x00190000'. Prozess Projekt1.exe (5236)


Das hier wird dann im System-Tab Rrt makiert:
FISTP QWORD PTR [EDX+ECX]