Procressbar zählen

[Nikolas]

Wait ist eine eigene Prozedur, die du selbst schreiben müsstest. Ich weiss nicht genau, was Christian damit wollte, ersetze es einfach durch 'sleep' das sollte den gleichen Effekt haben, nämlich einfach nach jedem Schritt kurz eine Pause einzulegen, also :

Delphi-Quellcode:

procedure TForm1.Button1OnClick(Sender: TObject);
  var CountDown : Integer;
      i         : Integer;
begin
  CountDown := StrToInt(Edit1.Text);
  ProgressBar1.Max := CountDown;
  ProgressBar1.Min := 0; // Sollte auch nicht fehlen. 
  for i := 0 to CountDown do 
    begin
    Sleep(1000);
    ProgressBar1.Position := i;
    end;
end;