procedure THICPUUsage._work_doCollectCPUData;
var i:integer;
CPUUsage:real;
begin
CollectCPUData;
CPUUsage := 0;
// Show dota for each processor
for i := 1 to GetCPUCount-1 do CPUUsage := CPUUsage + GetCPUUsage(i)*100;
if CPUUsage < 0 then CPUUsage := 0;
_hi_OnEvent(_event_onUsage, Round(CPUUsage));
end;