globales dyn. Array - länge in Procedure anpassen

[turboPASCAL]

Hi,

ich möchte in einer Procedure die länge eines dynamischen Arrays ändern.
Nach folgendem Code funktioniert das nicht. Was für ein Fehler mach ich denn nur ?

Delphi-Quellcode:

var
  MyArray: Array of Bytes;

procedure Dings(var AnyByteArray: Array of Byte);
begin
  // Calc xyz ...
  if xyz > High(AnyByteArray) then SetLength(MyArray, xyz);
end;

BEGIN
  SetLength(MyArray, 256);
  Dings(MyArray);
END.