Gauge

[xxsasch4xx]

Ich habe ein Programm geschrieben, in dem 100 Zahlen in eine Listbox geschrieben werden. Von 1 bis 100.
Ich will den Vorgang jetzt mit einer Gauge oder einer Prozess bar verknüpfen also dass dann automatisch der Fortschritt angezeigt wird.
Wie kann ich das machen?

Also in meinem Button steht folgender Code für die Listbox:

Delphi-Quellcode:

for i:= 1 to 100 do
begin
listbox1.items.add(inttostr(i));