Procedure, Array als Rückgabewert?

[Hallo_Thomas]

Fehlermeldung erscheint:"Die tatsächlichen und formalen var-Paarameter müssen übereinstimmen


EinWert(1,11,Wertigkeit);

Delphi-Quellcode:

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

end;