Auf Dyn.Array klassenübergreifend zugreifen

[mytar]

Ich hatte folgendes Problem:

Delphi-Quellcode:

var 
A, B: array of Integer; 
begin 
SetLength(A, 1); 
A[0] := 1; 
B := A;
SetLength(A, 1); //*
B[0] := 2; 
end;

Ohne die mit * markiert Zeile hätte A[0] den Wert 2, so wie hier ist A[0] genau 1.

Ich muss nun wenn ich wiederum mit B auf A zugreifen will

B := A; nach dem 2. SetLength einfügen.
Da ich in meinem Programm die Länge des Dynamischen Arrays öfterns, andere d.h. als nach jedem SetLength() von A muss ich die Zuweisung B := A durchführen.

Geht das auch irgendwie einfacher, oder muss ich mich mit diesem Problem bei dynamischen Arrays abfinden?

mytar