Timerproblem

[fpr1]

Hi
ich habe vor längerer Zeit mal eine Sidebar programmiert. Die funktioniert auch super als ich aber jetzt die Unit adCPUUsage eingebaut habe und diese wie im readme.txt in die onTimer-Prozedur eingebunden habe aktualisiert diese den Wert nicht mehr,während die anderen Befehle bearbeitet werden.

Zur Überprüfung habe ich die Unit in einem anderen Programm separat getestet wo sie auch einwandfrei funktioniert

Delphi-Quellcode:

procedure TForm5.Timer3Timer(Sender: TObject);
 var w:integer;
 begin
     for w:=0 to GetCPUCount-1 do // Show data for each processor
     begin
        label7.caption:=Format('%5.2f %%',[GetCPUUsage(w)*100]);
        progressbar3.Position:=round(strtofloat(copy(label7.caption,0,pos('%',label7.caption)-1)));
     end;
end;