Binäre Datei in Array of Byte laden

[Klaus01]

.. versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
    FileStream: TFileStream;
    myfile : file;
    i, filesizevalue: integer;
    fname: string;
begin
  try
    try
      FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
    except
      on E:Exception do
        showMessage(E.Message);
    end;
    setLength(bArray, FileStream.Size);
    FileStream.seek(0,soFromBeginning); 
    FileStream.ReadBuffer(bArray, FileStream.Size);
  finally
    FileStream.Free;
  end;
end;

Grüße
Klaus