Die Function GetCPUCount zeigt bei mir (WIN 7 - 64Bit, DELPHI 2009) falsche Werte an,
deshalb durch folgende Function ersetzt.
Einen Mittelwert gibt es bei
adCpuUsage nicht!
Delphi-Quellcode:
function GetCPUCount: Integer;
var MySystem: TSystemInfo;
begin
GetSystemInfo(MySystem);
Result:= MySystem.dwNumberOfProcessors;
end;