Diese Art der Anzeige ist nicht gut geeignet. Zudem: Was soll das Show in OnActivate? OnActivate heißt, dass das Formular den Eingabefokus bekommt (was auch tausend Mal passieren kann), das heißt da muss das Formular ja schon angezeigt sein...
Normalerweise zeigt man einen Fortschritt an, indem man von außen das Formular anzeigt und auch die Fortschrittsanzeige steuert. Also sop in der Art:
Delphi-Quellcode:
Form1 := TForm1.Create(nil);
Form1.ProgressBarX.Position := ...;
DoSomething;
Form1.ProgressBarX.Position := ...;
...
Form1.Close;