Hallo,
ein paar Dinge sind mir auf die Schnelle mal aufgefallen :
1) Quelltext : "l := -0;"
2) warum zeichnest Du alle 50mS, wenn Du nur alle 800mS einen neuen Wert bekommst ?
3)
Code:
procedure TForm1.Timer2Timer(Sender: TObject);
var cpu: single;
begin
cpu := CPUUssage;
edit1.text := inttostr(round(cpu));
Pulse[MaxArray] := strtoint(edit1.text);
end;
.... sollte man vieleicht mal ändern :
Code:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Pulse[MaxArray] := round(CPUUssage); // CPUUsage ist doch schon ein Single,
edit1.text := inttostr(round(CPUUsage)); // muß also nicht mehr in cpu umgewandelt werden
end;