Wenn Du die CPU-Last wissen willst, dann zeige sie an:
Timer1.Interval:= 1000; // kürzer muss es nicht sein!
Delphi-Quellcode:
private
Times: TThread.TSystemTimes;
procedure TForm1.FormCreate(Sender: TObject);
begin
TThread.GetSystemTimes(Times);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var Usage: Integer;
begin
Usage := TThread.GetCPUUsage(Times);
ProgressBar.Position := Usage; // Percent 0 - 100
end;