XE7 移動平台 ShowModal 范例，xe7showmodal

XE7 移動平台 ShowModal 范例，xe7showmodal

procedure TForm1.Button1Click(Sender: TObject);
begin
     Form2 := TForm2.Create(Self);
     Form2.ShowModal(procedure(ModalResult : TModalResult)
                     begin
                          if ModalResult = mrOK then
                             // do something here
                     end);
end;