setlength bei dynamischen array

[Mario]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type tIntArray = array of Integer;

var intArray: tIntArray;
    i: Integer;

begin

  SetLength(intArray, 1);
  IntArray[0] := 13;

  for i := 0 to High(intArray) do Writeln(intArray[i]);

  Writeln;

  SetLength(intArray, 2);
  IntArray[1] := 16;

  for i := 0 to High(intArray) do Writeln(intArray[i]);

  Writeln;

  Readln;


end.

Bildschirmausgabe:

Zitat:

13

13
16

Ich kann den Effekt also nicht nachvollziehen.