[Delphi] Problem z rejestrami

Mam problem z procedura :(
[code]
var
Reg : TRegistry;
begin
if checkbox2.Checked then
begin
Reg := TRegistry.Create;
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
reg.WriteString('Mojprogram',getcurrentdir+'\program.exe');
finally
reg.Free;
end;
end
else
begin
Reg := TRegistry.Create;
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.DeleteKey('????');
i nie wiem co tu wpisać aby wykasować klucz, nie działa wszystko co wpisuję :(
Application.MessageBox('Klucze zostały prawidłowo usunięte.', 'Sukces',
MB_OK + MB_ICONINFORMATION);
finally
Reg.Free;
end;
end;

end;[/code]

Jak wiadomo funkcja ma wstawic w rejestr klucz do autostartu windowsa kiedy jest checkbox zaznaczony i natychmiast kasowac wartosci jezeli odznacze checkboxa.

Pomocy.

[...]
else
begin
Reg := TRegistry.Create;
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',false);
[b]Reg.DeleteValue('Mojprogram');[/b]

Dzięki, a właśnie się zastanawiałem do czego jest deleteValue i czym sie rozni od deletekey :) Dzieki