1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Reg := TRegistry.Create;
  with Reg do
    try
      RootKey := HKEY_CURRENT_USER;
      if (OpenKey('Software\Microsoft\Windows\CurrentVersion\Run\', false)) then
        begin
          WriteString('Name', 'Pfad+Dateiname');
          CloseKey;
        end;
    finally
      Free;
  end;