AV beim Lesen eines Strings aus Registry mit RegQueryValueEx

[shmia]

Dieses Beschaffen von Speicher mit GetMem ist doch überflüssig.

Delphi-Quellcode:

function TMpuRegistry.ReadString(const ValueName: string; var Value: string):
  LongInt;
var
  cbData: Integer;
  lpType: DWORD;
begin
  // get size of required data
  result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType, nil,
    @cbData);

  if Result=ERROR_SUCCESS then
  begin
    SetLength(Value, cbData);  // Speicherplatz im Ausgabestring reservieren
    result := RegQueryValueEx(FhkResult, PChar(ValueName), nil, @lpType,
        PChar(Value), @cbData);
  end;
end;