Auf der Palette Beispiele gibts TGauge, das ist so ein Fortschrittsbalken, den Du meinen könntest. Mit MaxValue gibts Du einen Wert an, den Du erreichst, z.B. die Anzahl an Schleifendurchläufen.
Mit Progress glaub ich (ich verwende selbst eine andere Kompo, deswegen weiß ich es nicht mehr genau) kannst Du den Fortschritt einstellen. Das Ganze baust Du dann zusammen mit
Delphi-Quelltext
1:
| application.ProcessMessages |
in Deine Schleife ein und hast einen schönen Fortschrittsbalken.
Wenn Du keine bestimmte Anzahl hast, kannste auch ein bisschen tricksen. Es dürfte möglich sein zuerst den ganzen Durchlauf mit Schwarzem Hintergrund und Rotem Balken zu machen und das ganze dann mit Rotem Hintergrund und schwarzem Fortschrittsbalken, so bekommst Du einen Effekt, als ob sich der Balken am Ende wieder selbst aufrollt *g*