Array[0..0] Speicherreservieren

[Alter Mann]

Moin, Moin,

ich habe das 'kleine' Problem, dass ich ein innerhalb eines Records ein dynamisches Array habe, welches initialisiert sein muss, bevor ich es auf eine Funktion los lasse.
Doch wie mach ich das?

Delphi-Quellcode:

...
type
  DLI = record
    Count : DWORD;
    SIG   : DWORD;
    PE    : Array[0..0] of PI;
  end;

...
var
  D : DLI;
begin
  SetLength(D.PE, 15 * SizeOf(PI));   // Inkompatible Typen
  D.PE := AllocMem(15 * SizeOf(PI));  // - " - Array und Pointer (Das ist klar)
  @D.PE := AllocMem(15 * SizeOf(PI)); // der linken Seite kann nichts zugewiesen werden
end;

Ich kann die Struktur des Record nicht ändern. Gibt es noch eine andere Möglichkeit?

Danke