// An example containing two forms: Program project1; uses forms, unit1 in 'unit1. PAS '{form1}, unit2 in 'unit2. PAS '{form2}; {$ R *. res} begin application. initialize; application. mainformontaskbar: = true; application. createform (tform1, form1); application. createform (tform2, form2); application. run; end.
// Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; procedure button1click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} uses unit2; Procedure tform1.button1click (Sender: tobject); var num: integer; begin num: = screen. formcount; {currentProgramNumber of forms in} showmessage (inttostr (Num); {2} screen. forms [1]. showmodal; {display the second form} {the above sentence is equivalent to} // form2.showmodal; end.