1.需引入注册表单元Registry

//------------------------------------------------------------------------------
// 开机运行选项
//------------------------------------------------------------------------------


procedure TfrmMain.ckAutoRunClick(Sender: TObject);
var
  Reg: TRegistry;
  fpath: string;
begin
  inherited;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Microsoft\windows\CurrentVersion\Run', True);
    if ckAutoRun.Checked then
    begin
      fpath := Application.ExeName;//当前程序所在目录
      Reg.WriteString('AutoCheck', fpath);
    end
    else
      Reg.DeleteValue('AutoCheck');
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;