Objeto UniApplication
procedure TMainForm.UniButton2Click(Sender: TObject);
begin
with TUniForm2.Create(UniApplication) do
ShowModal();
end;unit uniGUIApplication;
interface
function UniSession: TUniGUISession;
function UniApplication: TUniGUIApplication;
...procedure TMainmForm.UnimButton1Click(Sender: TObject);
begin
if upAndroid in UniApplication.UniPlatform then
ShowMessage('This is an Android device!');
end;