Andere Codevariante für Registryeintragung ??

[Vader]

hallo


hab den code probiert aber es kommt der fehler:
[Fehler] Unit1.pas(36): Undefinierter Bezeichner: 'IsAdmin'

Code:

procedure Autostart(const fForAllUsers: boolean = true); 
const 
  RootKey : array[boolean]of HKEY = 
    (HKEY_CURRENT_USER,HKEY_LOCAL_MACHINE); 
var 
  reg     : TRegistry; 
begin 
  reg     := TRegistry.Create; 
  if(reg <> nil) then 
  try 
    reg.RootKey := RootKey[IsAdmin and fForAllUsers]; 

    if(reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', 
      true)) then 
    try 
      reg.WriteString('Programm-Name', paramstr(0)); 
    finally 
      reg.CloseKey; 
    end; 
  finally 
    free;                  
  end; 
end;

und noch was, wo kommt der code hin ich hab 's in formcreate hineinkopiert
mfg vader

mfg