[Alegun]

А при чём здесь службы не пойму, когда

Код:

...
 begin
 with TRegistry.Create do
   begin RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString(Название программы, Application.ExeName);
   CloseKey;
   Free;
 end;

хотя использование HKLM - это дурной тон, но можно ключ и изменить