udostepanie

Napisalem w delphi program do udostepnia folderow. Mam taki kod:

Rejestr.RootKey := HKEY_LOCAL_MACHINE;
Rejestr.OpenKey('Software\Microsoft\Windows\CurrentVersion\Network\LanMan\gry', true);
//SOFTWAREMicrosoftWindowsCurrentVersionRun
Rejestr.WriteString('Path','c:\gry');
Rejestr.WriteString('Remark','');
Rejestr.WriteInteger('Type',0);
Rejestr.WriteInteger('Flags',770);
Rejestr.WriteInteger('Parm1enc',0);
Rejestr.WriteInteger('Parm2enc',0);
Rejestr.CloseKey;

co robie zle ze nic sie nie udostepnia nawet po restarcie??