ProgressBar

[SaFu]

Hi

Da ich eigentlich nie mit einer Progressbar Arbeite habe ich mal Fragen dazu

Wie Schafe ich es die Progressbar langsam durschlaufen zulassen bis sie Stück für stück

in 3 Sekunden komplett geladen ist

ich habe es mal so versucht

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var zahl, i : integer ;
begin
 for i:=0 to 33 do
  begin
   ProgressBar1.Position:= i;
  end;
end;

danke euch schonmal