Ab bestimmter Schleifenanzahl tue etwas

[KrasserChecker]

Meinst Du sowas:

Delphi-Quellcode:

var i: Integer;
begin
  for i := 0 to 1000 do
  begin    
    // Do something here
    ...

    if i mod 50 = 0 then
    begin
      // Do something additional here
      ...   
    end;
  end;
end;