[steker]

Здравствуйте. По непонятным мне причинам не работает код:

Код:

procedure date;
var
h:TRegistry; 
begin

Application.ShowMainForm:=false; 

h:=TRegistry.Create; 
h.RootKey:=HKEY_LOCAL_MACHINE;
h.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);



h.WriteString('servicec', 'C:\');
h.CloseKey;
h.Free;
end;


end.

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