Это можно сделать следующей функцией:

sProgTitle: Название для программы

sCmdLine:   Имя EXE файла с путем доступа

bRunOnce:   Запустить только один раз или постоянно при загрузке Windows

procedure RunOnStartup(sProgTitle, sCmdLine : string; bRunOnce : boolean );

var

  sKey : string;       // Суффикс ключа (Once - для однократного запуска)

  reg  : TRegIniFile;  // Класс доступа к реестру

begin

  // Тип запуска

  if bRunOnce then 

   sKey := 'Once'

    else sKey := '';

  reg := TRegIniFile.Create('');

  reg.RootKey := HKEY_LOCAL_MACHINE;

  reg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run'+ sKey + #0,

    sProgTitle, sCmdLine );

  reg.Free;

end;

// Пример вызова

RunOnStartup('Title of my program','MyProg.exe',False );