Zuzycie procesora

Mam cos takiego:
uses
StdCtrls, adCpuUsage, ExtCtrls;

procedure TForm1.Timer1Timer(Sender: TObject);
var i: Integer;
begin
CollectCPUData;
Memo1.Lines.BeginUpdate;
for i:=0 to GetCPUCount-1 do
Memo1.Lines[i+1]:=Format('CPU #%d - %5.2f%%',[i,GetCPUUsage(i)*100]);
Memo1.Lines.EndUpdate;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
Memo1.Lines.Clear;
for i:=0 to GetCPUCount-1 do Memo1.Lines.Add('');
end;

end.

do tego jest maly komponencik http://www.indelphi.prv.pl/.
Chce to przeksztalcic tak aby zuzycie proca pokazywało na progress bar i za cholere nie wiem jak to zrobic !! Prosze o chocby cząstkową pomoc !! Przyda sie .....:)

Nie udalo mi sie zassac komponentu, ale na moje oko to powinno byc cos takiego:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 CollectCPUData;
 ProgressBar.Position := GetCPUUsage(i)*100;
end;

// a te procke mozna wywalic
procedure TForm1.FormCreate(Sender: TObject);
{...}

[dopisane]
"Zuzycie" a" Uzycie" to jednak jest roznica ;p

Niestety to nie dziala wyskakuje ze są rozne typy intetger i extended.
Jak kto nie moze sciagnac komponentu to nie wlazi tu http://www.kalisz.mm.pl/~edrobnik - powinno juz dzialac. Prosze o dalsza pomoc !!!!!!!

ProgressBar.Position := Round(GetCPUUsage(i)*100); tak chyba styknie?

chodzi o zakokrąglanie (round)

Czy przy uzyciu tego lub jakiegokolwiek innego komponentu mozna sprawdzic uzycie procesora przez naszą własna aplikację i TYLKO przez nią? Chodzi mi o cos takiego jak w Menedzeze Zadań Windowsa NT

Szczerze mowia nie psotkalem sie z komponentem mierzacym uzycie procesora przez "naszą aplikacje", wszystko co widzialem mierzy uzycie proca "calkowiecie" tzn. przez wszystkie uruchomione aplikacje czyli rownierz przez kernel i explorer.

TAk przy okazji zadne propozycje nie dzialaly ale poskladalem wszystko do kupy i DZIALA !!!!!!!!! procedurka powinna wygladac tak:

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

DZieki dla Johnny_Bit bo po prostu nie znam polecenia round a dzieki niemu wszystko teraz dziala :))

Czy przy uzyciu tego lub jakiegokolwiek innego komponentu mozna sprawdzic uzycie procesora przez naszą własna aplikację i TYLKO przez nią? Chodzi mi o cos takiego jak w Menedzeze Zadań Windowsa NT

http://4programmers.net/Forum/viewtopic.html?id=18619
http://4programmers.net/Forum/viewpost.html?id=69325&h=procentowe

Może w końcu ktoś coś takiego napisze....

Możesz też wejść na stronę autora komponentu i zrobić to według jego wskazówki:

http://www.aldyn.ru/demos/0017/index.html

PS
szkoda że nie działa na Windows Me