belieb.Dyn. Array in Procedure mit SetLength verändern

[Hallo_Thomas]

Hallo,

wie kann ich einer untergeordneten Procedure die Länge einer Dyn. Array verändern?



Mein Versuch, der schief ging;

Delphi-Quellcode:

procedure TForm.Button2Click(Sender: TObject);
var Werte:Array Of Integer;
begin
  SetLength(Werte,5);
  SetLaenge(Werte,Werte);
  Label1.Caption:=IntToStr(length(Werte));

end;

procedure TForm.SetLaenge(Wert:Array Of Integer;var Werte:Array Of Integer);
begin
  SetLength(Werte,10);
 ///
end;