zu?życie procesora

Jak sprawdzić w Delphi aktualne zużycie procesora (najlepiej bez użycia wsawek z asseblera, [ale jak mus do móz :)]?

Ja to robie przy uzyciu komponentu AdCpuUsage
a potem tylko :

procedure TForm1.Timer1Timer(Sender: TObject);
var i: Integer;
begin
CollectCPUData;
for i:=0 to GetCPUCount-1 do
progressbar1.Position := round(GetCpuUsage(i)*100);

NApisz do mnie to ci go przesle. (gg 4914867)

to jest w co drugim faq...

MoG - zaprzestań proszę - jakoś szukam tego od ponad 2 lat...

w co drugim faq
[rotfl]

http://4programmers.net/Forum/viewtopic.html?id=18619

Chyba, że chodzi o ogólne, a nie poszczególne dla każdego procesu - wtedy to inna para kaloszy, ale autor nie sprecyzował pytania.