-Du erstellst ein neues Formular
-Ziehst einen Timer und eine Progressbar drauf
-Änderst die Eigenschaft Max der Progressbar auf 25
-Stellst die Eigenschaft Enbaled des Timers auf false
-In das Ereignis OnTimer schreibst du Progressbar1.Position := Progressbar1.Position+1;
-Und if Progressbar1.Position > 24 then begin Timer.Enabled := false; FormX.Close;end;
-Bei FormActivate brauchst du nur noch die Progressbar auf 0 setzen und den Timer Enablen
_________________
Das Leben auf der Erde mag zwar teuer sein, aber eine jährliche Rundreise um die Sonne ist gratis mit dabei.