Procressbar zählen

[Knotti2015]

(@) Jelly ähm jo ...

Delphi-Quellcode:

procedure TForm1.Button1OnClick(Sender: TObject); 
begin 
     Progressbar1.Position:=Progressbar1.Min; 
     Progressbar1.Max:=strtoint(edit1.text); 
     Timer1.enabled:=true; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
     if Progressbar1.Position<Progressbar1.Max then Progressbar1.StepIt 
     else enabled:=false; 
end;

Das habe ich verwendet Danke.
nun habe ich noch ein anderes Problem umd zwar is das Programm während dieser Zeit wo die Procressbar zählt nicht ansprechbar sodass ich einen anderen button drücken könnte ..