Progressbar langsamer laufen lassen

[tobiasw]

hi

ich habe eine Progressbar diese soll jetzt bis nach 100 laufen das ganze hab ich über ne Schleife realisiert.
Die so aussieht:

Delphi-Quellcode:

var i:integer;
begin
i:=1;
for i:=1 to 100 do
begin
progressbar1.StepBy(i);
end;

Das ganze funktioniert auch. Wie ist es denn möglich das ich diese Progressbar langsamer laufen lassen das sie zum beispiel 40sec braucht um auf hundert prozent zu kommen

Gruß