Executar sfc /scannow no delphi

estou desenvolvendo uma aplicação para reparo e otimização do windows, só que quando tento executar o comando sfc /scannow dá a mensagem "a proteção de recursos do windows não pode executar a operação solicitada"

ShellExecute(Handle, 'runas', PChar('cmd.exe'),
PWideChar('/k sfc /scannow & pause.'), nil, SW_SHOWNORMAL);