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

[Hallo_Thomas]

Danke Dax, Nu hab ich noch ein Problem, ich habe mehre Forms

Delphi-Quellcode:

//////////Form1
procedure TForm1.Button1Click(Sender: TObject);
var Werte:TIntegerDynArray;
begin
  SetLength(Werte,5);
  Form2.SetLaenge(Werte,Werte);
  Label1.Caption:=IntToStr(length(Werte));
end;
///////////Form2
procedure TForm2.SetLaenge(Wert:Array Of Integer;var Werte:TIntegerDynArray);
begin
  SetLength(Werte,10);
///
end;

Fehlermeldung:[Fehler] Unit1.pas(35): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen.

Wie kann ich die Fehlermeldung umgehen?