Zugriffsverletzung

[schand99]

Jetzt hab ich mir mal einen kleinen Spaß gemacht:

Delphi-Quellcode:

Function WasSolldas(Irgendwas: String): Double;
  Var
  J, M: Integer;
  BogNr, xBog, xTube, beta, Hbeta, eps, Heps, MDich, ZetaBogKM, DPBog, DpDlzphM: array of Double;
begin
   M := 8;
   SetLength(BogNr, M);
   SetLength(xBog, M);
   SetLength(xTube, M);
   SetLength(beta, M);
   SetLength(Hbeta, M);
   SetLength(eps, M);
   SetLength(Heps, M);
   SetLength(MDich, M);
   SetLength(ZetaBogKM, M);
   SetLength(DPBog, M);
   SetLength(DpDlzphM, M);

   for J := 0 to M do
      begin
         BogNr[J] := 0;
         xBog[J] := 0;
         xTube[J] := 0;
         beta[J] := 0;
         Hbeta[J] := 0;
         eps[J] := 0;
         Heps[J] := 0;
         MDich[J] := 0;
         ZetaBogKM[J] := 0;
         DpBog[J] := 0;
         DpDlzphM[J] := 0;
      end;

   SetLength(BogNr, 0);
   SetLength(xBog, 0);
   SetLength(xTube, 0);
   SetLength(beta, 0);
   SetLength(Hbeta, 0);
   SetLength(eps, 0);
   SetLength(Heps, 0);
   SetLength(MDich, 0);
   SetLength(ZetaBogKM, 0);
   SetLength(DPBog, 0);
   SetLength(DpDlzphM, 0);
   Result := 0;
End;

Resultat: das Programm steigt bei SetLenght(xBog, 0); mit Schutzverletzung aus.

Delphi 10.1 Berlin

Was mach ich da falsch?