GLScene/Examples/Demox/Island/Island.dpr

program Island;

{$R *.dres}

uses
  System.StartUpCopy,
  FMX.Forms,
  fdIsland in 'fdIsland.pas' {FormIsland},
  frmSmartphone in 'frmSmartphone.pas' {fSmartphone: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.FormFactor.Orientations := [TFormOrientation.Landscape];
  Application.CreateForm(TFormIsland, FormIsland);
  Application.Run;
end.