Test Array Addresses

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

const loop = [0,1,2];

type
    TTopUpRec = array of integer;

procedure arrayinfo(t:TTopUpRec);
var
    i : integer;
begin
    for i in loop do begin
          if length(t)>i then write(t[i]:2,'  ')
                         else write('__',  '  ');
    end;
    writeln( format('%p',[ @t[0] ]));
end;

var
    TopUpFiles,
    TempTopUpFiles : TTopUpRec;

begin
    TopUpFiles     := [1 ,2 ,3 ,4 ,5];
    TempTopUpFiles := [10,11,12];

    arrayinfo(     TopUpFiles );
    arrayinfo( TempTopUpFiles );    writeln;

    TopUpFiles     := TempTopUpFiles;

    arrayinfo(     TopUpFiles );
    arrayinfo( TempTopUpFiles );    writeln;

    //SetLength(TempTopUpFiles,0);
    //TempTopUpFiles := nil;
    //TempTopUpFiles := Copy(TempTopUpFiles, 0, 0);
    TempTopUpFiles := [0];

    arrayinfo(     TopUpFiles );
    arrayinfo( TempTopUpFiles );    writeln;

    readln;
end.