Programm verbraucht zuviel Prozessorleistung - Wie kann ich Lag verhindern?

[Neumann]

Bei einem Timer kann noch passieren dass ein Event noch nicht abgearbeitet ist wenn der nächste kommt, was zu den Problemen mit der Last führen kann. Einfache Abhilfe ist folgendes:

Delphi-Quellcode:

  if Timer1.Tag=1 then
  exit;
  Timer1.Tag:=1;
  ..Tuwas;
  Timer1.Tag:=0;