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;