Colocando sua aplicação para iniciar com o Windows

Muitas vezes se torna necessário que nossa aplicação seja executada na inicialização do Windows, então segue abaixo um código simples, que verifica se sua aplicação já está no registro e se não estiver, coloca sua aplicação no registro do Windows, o que fará com que sua aplicação seja iniciada com o sistema.

procedure TFormPrincipal.FormCreate(Sender: TObject);
var
    Registro : TRegistry;
    Caminho : String;
begin

    Caminho := ExtractFileDir(Application.ExeName)+'\'+ExtractFileName(Application.ExeName);
    Registro := TRegistry.Create;
    Registro.rootkey := HKEY_LOCAL_MACHINE;
    Registro.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',false);

    if Registro.ReadString('NOME_DA_APLICACAO') = '' then
    begin
        Registro.WriteString('NOME_DA_APLICACAO',Caminho);
        Registro.CloseKey;
    end;
end;