プロ？
これでも使ってみれば
http://www.aldyn.ru/products/cpu_usage/

CollectCPUData; //CPU使用率取得
begin
for i:=0 to GetCPUCount-1 do //マルチプロセッサならその数ループ
MInfo.Lines[i]:=Format('CPU #%d - %5.2f%%',[i,GetCPUUsage(i)*100]); //GetCPUUsage(CPU_NO)が使用率
end