Как удалить подсекцию ис реэстра

[SeRhy]

Подскажите пожалуйста как правильно удалять подсекцию ис рэестра. Я пробовал так:

var: TRegistry;
Begin
r.rootkey:=HKEY_LOCAL_MACHINE;
t:=TRegistry.Create;
r.openkey('\Software\Microsoft\Wind ows\CurrentVersion\Run',true);
r.DeleteKey('program');
r.CloseKey;
r.Free;
End;

И видел при етом ошибку типа память по какомуто там адресу не может быть read.
Что я делаю не правильно?

[Terran]

У вас ошибки в коде, вам нужно его записать так:

Uses
   Registry,...
--------------
var
t: TRegistry;
Begin
t:=TRegistry.Create;
t.rootkey:=HKEY_LOCAL_MACHINE;
t.openkey('\Software\Microsoft\Windows\CurrentVers ion\Run',true);
t.DeleteKey('program');
t.CloseKey;
t.Free;
End;

[Minimus]

По моему когда убиваешь ключ не обязательно что-либо открывать:

var
t: TRegistry;
Begin
t:=TRegistry.Create;
t.rootkey:=HKEY_LOCAL_MACHINE;
t.DeleteKey('\Software\Microsoft\Wi ndows\CurrentVersion\Run\program');
t.Free;
end;