Progressbar langsamer laufen lassen

[arbu man]

Delphi-Quellcode:

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