Wozu ist der Taskstatus? Den zählst Du fix von 0-10.
Aber weiter unten in:
Delphi-Quellcode:
for j := 0 to High(MainVerz) do
begin
....
TaskStatus[j] := True;
Davon ganz abgesehen brauchst Du bestimmt nicht soundsoviel tausend Processmessages... Es reicht, immer mal zwischendurch und nicht bei jeder Datei ein Processmessages zu benutzen. Vielleicht ein zusätzlicher Zähler, der alle 50 oder 100 Dateien ausgelöst wird.