Delphi kann keine Arrays konkatenieren wenn...

[Der schöne Günther]

Ich verstehe die Welt nicht mehr.

Folgende Konsolenanwendung:

Delphi-Quellcode:

program Project24;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Unit10 in 'Unit10.pas';
begin
  try
   concatenateBytes();
  except
   on E: Exception do
     Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.

Unit10.pas:

Delphi-Quellcode:

unit Unit10;

interface uses System.SysUtils;


   (* type TSomeClass = class(TObject)
      class function getSomeBytes(): TBytes; virtual; abstract;
   end; *)

   function concatenateBytes(): TBytes;

implementation uses System.IOUtils;

function concatenateByteS(): TBytes;
   var
      firstArray, secondArray: TBytes;
   begin
      firstArray := TFile.ReadAllBytes(ParamStr(0));
      secondArray := TFile.ReadAllBytes(ParamStr(0));
      concatenateBytes := firstArray + secondArray;

   end;

end.

Ausführen. Läuft durch. Nun entfernen wir einmal den Kommentar um TSomeClass . Das Ausführen von concatenateBytes verursacht nun eine AV. Kann mir das jemand erklären? Wtf?