Fehler beim laden einer Funktion aus einer DLL - PC bootet?

[Pseudemys Nelsoni]

hi,

ich habe folgendes versucht:

Delphi-Quellcode:

program patch;

{$APPTYPE CONSOLE}

uses
  Windows;

type
  TRegOpenCurrentUser = function(samDesired: REGSAM; phkResult: PHKEY): LongInt; stdcall;

var
  LibModule: HMODULE;
  RegOpenCurrentUser: TRegOpenCurrentUser;
  phkResult: PHKEY;

begin
  LibModule := LoadLibrary('Advapi32.dll');
  if LibModule <> 0 then // DLL wurde erfolgreich geladen
  begin
    RegOpenCurrentUser := GetProcAddress(LibModule, 'RegOpenCurrentUser');
    if (@RegOpenCurrentUser <> nil) and (RegOpenCurrentUser(KEY_READ, phkResult) = ERROR_SUCCESS) then
    begin
      //
    end;
  end;
end.

Die zweite Bedingung der letzten If-Abfrage löst einen Fehler aus und mein PC bootet direkt... was ist da denn falsch? Und das beste is noch das nach dem Start die projektdatei nichtmehr lesbar ist und ich alles neu schreiben muss (delphi zeigt dann nur vierecke an ~~)