Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
begin
ProgressBar.Min := 0;
ProgressBar.Max := 60;
ProgressBar.Position := ProgressBar.Max;
ProgressBar.Step := -1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar.StepIt;
if ProgressBar.Position < 1 then
Close; // Form1.Close wäre das gleiche, aber Form1 kann man auch weglassen
end;
Ist ungetestet, müsste aber so gehen.
Im Ereignis OnActivate weist Du der ProgressBar erst mal die Startwerte zu, wenn Dein Formular aktiviert wird (wenn es also geöffnet wird und den Fokus erhält).
Den Timer stellst Du einfach auf 1 Sekunde ein und änderst die ProgressBar.Position schrittweise jede Sekunde.
Das Formular werd geschlossen, wenn die ProgressBar "heruntergelaufen" ist.