Pointer of Dynamic Array

[Crocotronic]

SetLength(Elements^, Length(Elements^)+1); Stimmt, so geht's einfacher.
Aber das Problem bleibt. Direkt nach dem Aufruf von ForEach ist die Länge von MyElements = 0, obwohl ich sie ja definitiv erhöhe
An der ForEach-Methode kann es nicht liegen, da

Delphi-Quellcode:

procedure IncDynRec(ADataPtr: Pointer);
var Elements: TElements;
begin
 Elements:= PElements(ADataPtr)^;
 SetLength(Elements,Length(Elements)+1);
end;

genau so nicht funktioniert