Procressbar zählen

[Minz]

Als Alternative mit Timer

Delphi-Quellcode:

procedure TForm1.Button1OnClick(Sender: TObject); 
begin
     Progressbar1.Position:=Progressbar1.Min;
     Progressbar1.Max:=strtoint(edit1.text);
     Timer1.enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     if Progressbar1.Position<Progressbar1.Max then Progressbar1.StepIt
     else enabled:=false;
end;