1:

If not OpenKey('Mein Key',false)					

1:

If OpenKey('Mein Key',false) = true then					

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

function load_registry:boolean;
var reg:TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  if not reg.OpenKey('SOFTWARE\MyCompany\MYProduct\',false)then begin
    reg.Free;
    result:=false;
  end else begin
    result:=true;
  
  {hier werden die werte geladen.}
    
     reg.Free  
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

{...}
if not load_registry then begin
      MessageBox(WindowHandle,'Fehler beim lesen der Registry-Schlüssel.'+#13+
                   'Stellen Sie sicher dass das Programm ordnungsgemäß installiert wurde.',
                   'Fehler!',MB_ICONEXCLAMATION or MB_OK);
 
  {...}					

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

function load_registry:boolean; 
var reg:TRegistry; 
begin 
  reg:=TRegistry.Create; 
  reg.RootKey:=HKEY_LOCAL_MACHINE; 
  if not reg.OpenKey('SOFTWARE\MyCompany\MYProduct\',false)then begin 
    reg.Free; 
    result:=false; 
  end else begin 
    result:=true; 
  
  {hier werden die werte geladen.} 
    
     reg.Free  
  end; 
end;					

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

function load_registry:boolean; 
var reg:TRegistry; 
begin 
  reg:=TRegistry.Create; 
  reg.RootKey:=HKEY_LOCAL_MACHINE; 
  if reg.OpenKey('SOFTWARE\MyCompany\MYProduct\',false)then begin // Das "not" entfernt
    reg.Free; 
    result:=false; 
  end else begin 
    result:=true; 
  
  {hier werden die werte geladen.} 
    
     reg.Free  
  end; 
end;					

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

function load_registry: boolean;
var
  reg : TRegistry;
begin
  Result := false;

  reg    :=TRegistry.Create(KEY_READ);
  with reg do try
    RootKey := HKEY_LOCAL_MACHINE;
    if(OpenKey('Software\MyCompany\MyProduct',false)) then
    begin
      { hier werden die Werte geladen }

      Result := true;
      CloseKey;
    end;
  finally
    Free;
  end;
end;					

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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

function load_registry: boolean;
var
  reg    : HKEY;
  lpType,
  cbData : dword;
  dwTest : dword;
  szTest : string;
begin
  Result := false;

  if(RegOpenKeyEx(0,'Software\MyCompany\MyProduct',
    0,KEY_READ,reg) = ERROR_SUCCESS) then
  try
    // hier können jetzt die Werte geladen werden
    // als Beispiel, ein DWORD-Eintrag
    lpType := REG_NONE;
    cbData := 0;

    if(RegQueryValueEx(reg,'DWORD-Testwert',nil,
      @lpType,nil,@cbData) = ERROR_SUCCESS) and
      (lpType = REG_DWORD) and
      (cbData = 4) then
    begin
      Result := RegQueryValueEx(reg,'DWORD-Testwert',
        nil,@lpType,@dwTest,@cbData) = ERROR_SUCCESS;
    end;

    // und vielleicht noch einen String auslesen
    lpType := REG_NONE;
    cbData := 0;
    SetLength(szTest,0);

    if(RegQueryValueEx(reg,'String-Testwert',nil,
      @lpType,nil,@cbData) = ERROR_SUCCESS) and
      (lpType in[REG_SZ,REG_EXPAND_SZ]) and
      (cbData > 0) then
    begin
      SetLength(szTest,cbData);
      Result := RegQueryValueEx(reg,'String-Testwert',
        nil,@lpType,@szTest[1],@cbData) =
        ERROR_SUCCESS;

      if(Result) then SetLength(szTest,cbData-1);
    end;
  finally
    RegCloseKey(reg);
  end;
end;					

1:
2:
3:

if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, // <--
    'Software\MyCompany\MyProduct',
    0,KEY_READ,reg) = ERROR_SUCCESS) then