Ich würde gerne mitzählen, wie oft Form1 geöffnet wurde!

[Deep-Sea]

Zitat von rollstuhlfahrer:

EDIT: Was sollen diese Zeilen denn?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
  if ProgressBar1.Position < 1 then
    Close; 
end;

Entweder ProgressBar1.Min ist weit unter 0 oder dein Programm wird beim ersten Aufruf beendet. Dafür kannst du auch gleich Close nehmen.

Die ProgressBar läuft von 60 rückwärts und sobald sie 0 erreicht, wird die Form geschlossen (Warum weiß ich auch net ^^)