jetzt hab ich mir den Code mal eingefügt. Gut es läuft wie ich es wollte nur es hört gar net mehr auf zu laufen so das ich auf die Anwendung nicht mehr beenden kann.
Delphi-Quellcode:
var i:integer;
begin
i:=1;
for i:=1 to 100 do
begin
progressbar1.StepBy(i);
sleep(400);
end;