CPU Auslasten

[Basilikum]

das kannst du auch sehr viel einfacher haben:

Delphi-Quellcode:

Var
  EndTick : LongWord;
Begin
  EndTick:=GetTickCount() + 10000;
  While (GetTickCount() < EndTick) Do ; // 10 s volle CPU-Last
end;