Hola jo3litro.
Si lo que quieres es la unidad FMX.DeviceInfo para utilizar otras funciones, descárgatela del link que puse más arriba.
Si lo que quieres es adaptar el formato del TWebBrowser a la pantalla. Puedes hacerlo más fácilmente sin utilizar FMX.DeviceInfo de esta manera.
Debes tener localizada en el dispositivo la página web y todas las imágenes y archivos que lleve incluídos.
Yo lo hice colocándolos en el fichero Deployment del proyecto, a la Remote Path
assets\internal\, y luego los llamo desde el TWebBrowser de la siguiente manera:
Código Delphi
[-]
uses
System.Types, FMX.Types, FMX.WebBrowser, System.IOUtils, FMX.Platform,
var
sScale: Single;
sScreenSize: TPoint;
ScreenService: IFMXScreenService;
procedure TForm1.FormCreate(Sender: TObject);
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
begin
sScreenSize := ScreenService.GetScreenSize.Round;
sScale := ScreenService.GetScreenScale;
end;
WebBrowser1.Height := sScreenSize.y;
WebBrowser1.Width := sScreenSize.x;
WebBrowser1.Navigate('file://'+TPath.Combine(TPath.GetDocumentsPath, 'MiPagina.htm'));
end;
Espero que te sirva. Si no vuelve a precisar tu pregunta.
Un saludo.