1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Type Arr = Array of Byte;
Type P_A = ^Arr;

var
  SPtr  : P_A;     // Source-Pointer
  DPtr  : P_A;     // Destination-Pointer
... 
  PMsg := AllocMem( Msg.Length );
  SPtr := @Msg;
  DPtr := PMsg;
  for I := 0 to SizeOf( Msg ) - 1 do DPtr^[I] := SPtr^[I];					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

// Typendeklarationen immer T<name>
// bitte leg keinen Pointer auf ein dynamisches Array an, wenn du nicht 100% weißt was du da tust
// wenn du unbedingt GetMem verwenden willst dann besser nur mit "x: Pointer" oder "x: PByte" etc.
type
  TArr = array of Byte;
var
  x, y: TArr;
  i: integer;
begin
  // Speicher reservieren (fuer dynamische Arrays bzw. Strings)
  SetLength(x, 10);

  // x -> 1..10
  for i := Low(x) to High(x) do
    x[i] := i+1;

  // kopie anlegen, bei "y := x"  würde Y nur eine Referenz sein
  y := Copy(x);

  // 1. Wert in Y aendern (low(x) entspricht bei dynamische Arrays "0")
  y[Low(y)] := 99;

  Caption := Format('%d %d', [x[low(x)], y[Low(y)]]);
  // mit @x[Low(x)] bzw @x[0] erhaelt man die Adresse auf das 1. Byte
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TData = array of TStruct;
var
  a: TData;
begin
  SetLength(a, 10); // 10 Elemente des Typs TStruct
  
  // ... 
  if Length(a) > 0 then begin
    // bei dynamischen Arrays sollte das immer geprueft werden,
    //die Länge könnte 0 sein und beim Zugriff auf das 1. Element gibt es eine AccessViolation (nicht in dem Beipiel)

    CopyMemory(@a[Low(a)], srcpointer, Length(a) * SizeOf(a[Low(a)])); // SizeOf(a[0]) NICHT SizeOf(a) !!!
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TStruct = record
    a: Integer;
    b: Integer;
  end;
var
  arr: array of TStruct;
begin
  SetLength(arr, 3);
  Caption := Format('%x %d %x' ,[
    Integer(PPointer(@arr)^),                        // entspricht @arr[0]
    Integer(PInteger(Integer(PPointer(@arr)^)-4)^),  // Length(arr)
    Integer(@arr[0])
    ]);					

1:

SetLength(a, Length(a)+1);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

type
  TStruct = record
    a: Integer;
    b: Integer;
  end;
  PStruct = ^TStruct;
var
  x, y: TStruct;
  z: PStruct;
begin
  x.a := 1;
  x.b := 1;

  z := @x;

  /// du bekomsmt z.b. z von extern übergeben (API) und willst davon eine Kopie in y haben:
  
  y := z^; // Daten werden automatisch kopiert