For Schleife zählt mehr als vorhanden. iTask, for Schleife, integer -> fehler

[davtix]

Zitat von DieDolly:

Das wissen wir erst, wenn du uns dein Delay zeigst.

Delphi-Quellcode:

procedure Delay(const Milliseconds: DWord);
var
  FirstTickCount: DWord;
begin
  FirstTickCount := GetTickCount;
  while ((GetTickCount - FirstTickCount) < Milliseconds) do
  begin
    Application.ProcessMessages;
    Sleep(0);
  end;
end;