das ist der Code...hoffe mal, dass ich nix vergessen habe...
Delphi-Quellcode:
//...
procedure TForm1.Button1Click(Sender: TObject);
begin
akt_int := strtoint(edit1.text);
timer1.Enabled := true;
timer1.interval := (akt_int*1000);
Button1.Caption:= 'gestartet...mit'+edit1.text+' Sek.';
Application.ProcessMessages;
ProgressBar1.Enabled := true;
progressbar1.Min := 0;
progressbar1.Max := Timer1.Interval;
end;
procedure TForm1.Ontimer(Sender: TObject);
begin
ProgressBar1.StepIt;
end;
//....