pct do uso da cpu

estou precisando de uma função q retorne o pct do uso da cpu, alguem pode me ajudar?
uso delphi 7