Geschafft.
Nach einbinden der Funktion mit folgender Schreibweise funktioniert es:
function PowerEnumerate(RootPowerKey: HKEY; SchemeGuid: PGUID; SubGroupOfPowerSettingsGuid: PGUID; AccessFlags: POWER_DATA_ACCESSOR; Index: ULONG; var Buffer: TGUID; var BufferSize: DWORD): DWORD; stdcall; external 'powrprof.dll' name 'PowerEnumerate';
Ich musste aus dem
var Buffer: PGUID
ein
var Buffer: TGUID
machen
Kleine Ursache, große Wirkung *gg*