code : pascal
if CheckBox1.Checked=true then
  with TRegistry.Create do try
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString('MMS_TA', Application.ExeName);
    CloseKey;
  finally
    Free;
  end
else
  with TRegistry.Create do try
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
    DeleteValue('MMS_TA');
    CloseKey;
  finally
    Free;
  end;
Parsed in 0.003 seconds, using GeSHi