Procedure, Array als Rückgabewert?

[Hallo_Thomas]

Freu dich bloss nicht zu früh
das Programm hängt sich schon auf

Delphi-Quellcode:

procedure TForm1.EinWert(aWert: array of Integer;aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
  SetLength(Wertigkeit,aEnd);
  for y := aStart to aEnd do
  Wertigkeit[y]:=0;
end;

Keine Ahnung, aber irgendwie hängt sich das Programm jetzt auf?