;: TForm3; i: integer; Unit1, Unit2, Unit4, Unit10, Unit11, Unit12, Unit5, Unit6, Unit7 ,, Unit9;
{$ R * .dfm} TForm3. Timer1Timer (Sender: TObject);:=i + 1; ProgressBar1. Position:=i; i=100 then begin Timer1. Enabled:=False; i:=0 ;. Show; Form2. Visible:=False; Form3. Close ;. Timer1. Enabled:=True ;; end; end.
