Timerproblem

[hathor]

Da fehlt was WICHTIGES!

Delphi-Quellcode:

procedure TTestForm.TimerTimer(Sender: TObject);
var i: Integer;
begin
    CollectCPUData; // MUSS IMMER AUFGERUFEN WERDEN !!!
    for i:=0 to GetCPUCount-1 do
    begin
    if GetCPUCount=2 then
    BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    END;
    if GetCPUCount=3 then
    BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    Label2.Caption := Format('CPU #%d - %5.2f%%',[1,GetCPUUsage(1)*100]);
    END;
    if GetCPUCount=4 then
    BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    Label2.Caption := Format('CPU #%d - %5.2f%%',[1,GetCPUUsage(1)*100]);
    Label3.Caption := Format('CPU #%d - %5.2f%%',[2,GetCPUUsage(2)*100]);
    END;
    if GetCPUCount=5 then
    BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    Label2.Caption := Format('CPU #%d - %5.2f%%',[1,GetCPUUsage(1)*100]);
    Label3.Caption := Format('CPU #%d - %5.2f%%',[2,GetCPUUsage(2)*100]);
    Label4.Caption := Format('CPU #%d - %5.2f%%',[3,GetCPUUsage(3)*100]);
    END;
    end;
end;

Nicht getestet - aber so könnte es funktionieren...

ÄNDERE BITTE DIE ÜBERSCHRIFT - die ist total falsch und beschreibt nicht das Problem!
Vorschlag: adCPUUsage - wie im Timer anwenden?