unit Unit1;interfaceuses  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,  FMX.Controls.Presentation;type  TForm1 = class(TForm)    Button1: TButton;    Label1: TLabel;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementationuses Unit2;{$R *.fmx}{$R *.NmXhdpiPh.fmx ANDROID}procedure TForm1.Button1Click(Sender: TObject);begin  Form2.Show;//非模态显示窗体二end;procedure TForm1.Button2Click(Sender: TObject);begin  Form2.ShowModal;//模态显示窗体二end;end.