Wie macht man eine ProgressBar?

[Die Muhkuh]

oder wenn sie sich automatisch füllen soll:

Hau einen Timer auf die Form und in den schreibste rein:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Progressbar1.Position := Progressbar1.Position + 1;
end;