uses
  FMX.Platform;

procedure TForm2.Button1Click(Sender: TObject);
var
  ScreenService: IFMXScreenService;
  LogicScreenSize: TPoint;
  ScreenScale: Single;
begin
   // Запрашиваем сервис экрана, для получения информации о размере и текущем коэффициенте масштабирования
   if TPlatformServices.Current.SupportsPlatformService( IFMXScreenService, IInterface( ScreenService ) ) then
   begin
      LogicScreenSize := ScreenService.GetScreenSize.Round;
      ScreenScale := ScreenService.GetScreenScale;
      LabelLogicScreenSize.Text := Format( 'Логический размер: %d, %d',
                                           [LogicScreenSize.X, LogicScreenSize.Y] );
      LabelPhysicScreenSize.Text := Format( 'Физический размер: %f, %f',
                                            [LogicScreenSize.X * ScreenScale, LogicScreenSize.Y * ScreenScale] );
      LabelScreenScale.Text := Format( 'Коэффициент масштабирования: %f',
                                       [ScreenService.GetScreenScale] );
   end;
end;