[Alegun]

В некоторых учебниках пишут такое:

Код:

var
 h: TRegistry;
 begin
 h:= TRegistry.Create;
  with h do
 begin
 RootKey:= HKEY_LOCAL_MACHINE;
  OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True);

 // Прописать на автозапуск:
  WriteString('Моя прога', Application.ExeName);

 // Удалить из автозапуска:
 // if ValueExists('Моя прога') then DeleteValue('Моя прога');

  CloseKey;
   Free;
  end;//with