Programa inicializando com o Windows - Delphi

Eu tava vendo uns tutoriais e vi ESSE Programa de inicializar com o Windows o UO SEJA, QUANDO Voce. liga o  computador  Seu Programa Inicia com o do Windows Como o Windowns Viva Messeger  O  Ares  iniciam com o fazer do Windows!
Agora Vamos interessa oque: 

declarar hum  OSU :

Código :

Registro

Sé de preferencia adicione DOIS BOTOES: 
- Gravar o Programa Localidade: Não Registro  
- removedor Programa SEM Registro
(  Claro Que ISSO E opcional  )


Adicione var Localidade: Não ****:

Código:

R: TRegistry;
S: String;

Se Voce. Localidade: Não Souber, E Aqui ↓

Código:

var
  Form1: TForm1;
  R: TRegistry;
  S: String;
implementation

{$ R *. DFM}  

Adicione o codigo nenhum Botão de gravar Programa Localidade: Não Registro:

Código:

Comecar
R: = Registry.create;
S: = ExtractFileDir (application.exename) + '\' + ExtractFileName (Application.exename);
R.rootkey: = HKEY_LOCAL_ *******;
09.
R.Openkey ('Software \ Microsoft \ Windows \ CurrentVersion \ Run', false);
R.WriteString ('ProgramaInicia', S);
R.closekey;
R.Free;
MessageBoxA (Punho, 'Valor Adicionado!', 'Adicionado', 64);
Acabar;

E nenhum Botão de removedor Programa do adicione Registro:

Código:

Comecar
R: = TRegistry.Create;
S: = ExtractFileDir (Application.ExeName) + '\' + ExtractFileName (Application.ExeName);
R.rootkey: = HKEY_LOCAL_ *******;
R.Openkey ('Software \ Microsoft \ Windows \ CurrentVersion \ Run', false);
R.DeleteValue ('ProgramaInicia');
R.closekey;
R.Free;
MessageBoxA (Punho, 'Valor excluido!', 'Excluido', 64);
Acabar;

Salve o Programa, aperta los gravar o Programa Localidade: Não Registro e O O Vá los Iniciar> executar e digite: 
regedit

Agora Veja Que Seu Programa tá salvo (  coloquei com iniciar  )


Reinicie o Computar Parágrafo Testar!