HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);

var

// Переменная реестра

h: TRegistry;

begin

h := TRegistry.Create;

with h do

begin

RootKey := HKEY_LOCAL_MACHINE;

OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);

WriteString('DelphiWorldApp', 'C:\Application.exe');

CloseKey;

Free;

end;

end;