[[Bicho]]

Si queremos que nuestra aplicación se inicie cada vez que arranca Windows:

Código Delphi [-]
// Hay que añadir al uses Registry
procedure RunForEver(pCaption, pPath : String);
var Registro    :TRegistry;
begin
  //pCaption es el caption del programa, y path la ruta completa donde se encuentra el .exe
  Registro:=TRegistry.create;
  Registro.RootKey := HKEY_LOCAL_MACHINE;
  if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',FALSE) then
    Registro.WriteString(pCaption, pPath);
  Registro.Free; 
end;

Si lo que queremos es que se inicie una única vez al arrancar windows

Código Delphi [-]
procedure RunOnce(pCaption, pPath : String);
var Registro    :TRegistry;
begin
  //pCaption es el caption del programa, y path la ruta completa donde se encuentra el .exe
  Registro:=TRegistry.create;
  Registro.RootKey := HKEY_LOCAL_MACHINE;
  if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce',FALSE) then
    Registro.WriteString(pCaption, pPath);
  Registro.Free;
end;

[HTML]<b>
Edito: Modificado para que al final en lugar de Destroy haga un Free,
lo puse para ver si estaban atentos y como siempre Dec está al loro! jeje.
No, es broma, me he colado, gracias por el apunte Dec.
</b>[/HTML]