Learn the official example-tapplication. createform

Download the source code in this example and run:

Production process:
1. After creating a new project, add form2, form3, form4, and form5;
2. Add a tprogressbar and tlabel respectively on form5 (use the default name );
3. Open the project source code (Project-> View Source) and paste the following files to run the program.

Program project1; uses forms, sysutils, unit1 in 'unit1. PAS '{form1}, unit2 in 'unit2. pa' {form2}, unit3 in 'unit3. pa' {form3}, unit4 in 'unit4. pa' {form4}, unit5 in 'unit5. PAS '{form5}; {$ R *. res} begin application. initialize; with tform5.create (NiL) Do try application. mainformontaskbar: = true; position: = podesktopcenter; progressbar1.max: = 100; show; update; sleep (1000); application. createform (tform1, form1); form1.position: = pow.topcenter; progressbar1.stepby (25); label1.caption: = 'form1 loaded successfully. '; update; sleep (1000); application. createform (tform2, form2); progressbar1.stepby (25); label1.caption: = 'form2 loaded successfully. '; update; sleep (1000); application. createform (tform3, form3); progressbar1.stepby (25); label1.caption: = 'form3 loaded successfully. '; update; sleep (1000); application. createform (tform4, form4); progressbar1.stepby (25); label1.caption: = 'form4 loaded successfully. '; update; sleep (1000); finally free; end; application. run; end.