Dann würde ich es so machen:
Delphi-Quellcode:
timer1.interval := (akt_int*100);
Button1.Caption:= 'gestartet...mit'+edit1.text+' Sek.';
Application.ProcessMessages;
ProgressBar1.Enabled := true;
progressbar1.Min := 0;
progressbar1.Max := 10;
Nun ist der Intervall des Timers 1/10 von der Wartezeit, d.h der Timer wird 10mal ausgelöst und da Max 10 ist, ist der Fortschrittsbalken am Ende angekommen.