Проблема с автозапуском!

[FAiver]

Пытаюсь сделать автозапус через реестр делаю как в примере и ничего не получается т.е. программа не прописывается в реестре! подскажите что делаю не так!

PathTo:=Application.ExeName;

     h:=Tregistry.Create;
         with h do
         begin;
            RootKey:=HKEY_LOCAL_MACHINE;
            OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
            WriteString('Proga',PathTo);
            CloseKey;
            Free;

          end;

[Трофимов Александр]

procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce: boolean );  
var
 hKey: string;  
 hReg: TRegIniFile;  
begin
 if aRunOnce then hKey := 'Once'
 else
   hKey := '';  
 hReg := TRegIniFile.Create( '');  
 hReg.RootKey := HKEY_LOCAL_MACHINE;  
 hReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run'
                 + hKey + #0,  
                 aProgTitle,  
                 aCmdLine );  
 hReg.destroy;  
end;

[FAiver]

извиняюсь... оно работало просто очень спать хотелось и видимо протормазил...