1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

reg := TRegistry.Create;
autostart:=false;
asd:=true;
if autostart then
begin
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
    try
      reg.Writestring('RMC-Tool', Application.ExeName);
    finally
      reg.CloseKey;
    end;
  except
  showmessage('FEHLER!');
  end;
end else
begin
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    try
      asd:=reg.DeleteKey('RMC-Tool');
    finally
      reg.CloseKey;
    end;
  except
  showmessage('FEHLER!');
  end;
end;
if not asd then showmessage('!');
end;