Автозагрузка

[_-Re@l-_]

Почитал недавние темы про автозагрузку и тоже захотел сделать подобное,
однако вот добавление проходит нормально, однако удаление не происходит.Почему?Код:

procedure WriteRun(AppName: string; on: integer);
var
 Reg: TRegistry;
begin
 Reg := tregistry.create;
 with Reg do begin
 RootKey := hkey_current_user;
 OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
 if on = 1 then
 WriteString(AppName, paramStr(0))
else
 DeleteKey(AppName);
end;
 Reg.CloseKey;
 Reg.Free;
end;


procedure TForm1.Button8Click(Sender: TObject);
begin
       AssignFile(FileNumber,'number.txt');
       Rewrite(FileNumber);
       If Sender = Button8 Then
       Begin
             WriteRun('AppName',1);
             Write(FileNumber,'1');
       End;
       If Sender = Button9 Then
       Begin
             WriteRun('AppName',0);
             Write(FileNumber,'0');
       End;
       CloseFile(FileNumber);
end;

P.S. Просмотрел много тем на этом форуме, ни одна не помогла....




Прошу прощения, тема не актуальна, нашёл как сделать, вот правильный код:

procedure WriteRun(AppName: string; on: integer);
var
 Reg: TRegistry;
begin
 Reg := tregistry.create;
 with Reg do begin
 RootKey := hkey_current_user;
 OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
 if on = 1 then
 WriteString(AppName, paramStr(0))
else
 DeleteValue(AppName);
end;
 Reg.CloseKey;
 Reg.Free;
end;