Procressbar zählen

[Knotti2015]

CountDown := StrToInt(Edit3.Text);
ProgressBar1.Max := CountDown;
ProgressBar1.Min := 0; // Sollte auch nicht fehlen.
for i := 0 to CountDown do
begin
Sleep(1000);
ProgressBar1.Position := i;
end;

entsculdigt ich habe es do so gelöst gibt es dafür auch ein code?