Delphi - Aplicação iniciar junto com o windows

Fazendo sua aplicação iniciar junto com o Windows
É muito comum quando instalamos em nosso computador um software utilitário de impressora ou mesmo programas que fazem comunicação do computador com o celular ou outro dispositivo qualquer que esses programas iniciam juntos com o Windows, ou seja, quando o Windows é inicializado eles também se executam automaticamente.
Há um tempo atrás tive a necessidade de criar um software pra gerenciamento de Lan House, o que me fez sair em busca de formas de manipular o Windows de várias maneiras.
Descobri então que por meio do registro do Windows podemos fazer com que nosso aplicativo inicie junto com o mesmo.
Então vamos à prática:
Mas antes, Atenção! Devemos tomar muito cuidado com o uso do registro do Windows, pois, a alteração de chaves ou valores do mesmo pode causar um perca irreparável, por isso muito cuidado.
Primeiro vamos criar uma aplicação bem simples.
Abra o Delphi: File > New > Application . Antes de qualquer coisa, vamos declarar na clausula
Uses do form a unit Registry :

Dessa forma o Delphi poderá trabalhar com o registro do Windows. Em seguida coloque dois
TButtons no form:

Agora salve sua aplicação da seguinte forma:
Unit:

Projeto:

Coloque o nome “Inicia” para ela.
Pronto agora que já salvamos nossa aplicação vamos ao que interessa:
No Evento OnClick do primeiro TButton coloque:
01.procedure TForm1.Button1Click(Sender: TObject);
02.var
03.Reg: TRegistry;
04.S: string;
05.begin
06.Reg := TRegistry.Create;
07.S:=ExtractFileDir(Application.ExeName)
+'\'+ExtractFileName(Application.ExeName);
08.Reg.rootkey:=HKEY_LOCAL_MACHINE;
09.Reg.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',fa lse); 10.Reg.WriteString('ProgramaInicia',S);
11.Reg.closekey;
12.Reg.Free;
13.Showmessage('Valor Gravado!');
14.end;
A chave do registro do Windows:
HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION
\RUN
É a chave que guarda o “Path” ou caminho dos programas que são inicializados juntos com o
Windows, o