Hallo,
wie groß ist denn Y?
ich würde z.B. nicht jeden Schritt (Number) das Stepit machen.
Wenn Du z.B. 10.000 Numbers hast, ändert sich in der Anzeige doch nichts.
Nimm eine lokale Variable zum Zählern der Numbers und zum Berechnen des prozentualen Fortschritts.
Und dann sowas wie
PG.Min:= 0;
PG.Max:= 100;
Delphi-Quellcode:
if Numbers mod iCountPercent = 5 then
begin
PG aktualisieren
end;
Der PG würde also nur alle 5% deiner Numbers aktualisiert werden.