uses Registry; 
 
procedure Aktion(Bezeichnung, Programm: string; eintrag: boolean); 
var 
  reg: TRegistry; 
begin 
  reg := TRegistry.create; 
  with reg do 
  begin 
    RootKey := HKEY_LOCAL_MACHINE; 
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); 
    if eintrag then 
      WriteString(Bezeichnung, Programm) 
    else 
      reg.DeleteValue(Bezeichnung); 
    CloseKey; 
    Free; 
  end; 
end; 
 
procedure autostart(Bezeichnung, Programm: string); 
begin 
  Aktion(Bezeichnung, Programm, true); 
end; 
 
procedure loeschen(Bezeichnung: string); 
begin 
  Aktion(Bezeichnung, '', false); 
end; 
 
 
 
// eintragen 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  autostart('MyProg', Application.Exename); 
end; 
 
// löschen 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  loeschen('MyProg'); 
end;