¿cómo adaptar el tamaño del WebBrowser a la pantalla del dispositivo?

[jhonalone]

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,
// Como mínimo estos, más los que necesite tu unit

var
    sScale: Single;
    sScreenSize: TPoint;
    ScreenService: IFMXScreenService;
// Declaradas globales

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'));
// Lo ponemos en OnShow para que no lo repita cada vez que mostremos el TWebBrowser (Si lo mostramos varias veces)
// De esta forma, te mantiene la última posición de la página cuando lo muestres la próxima vez
end;

Espero que te sirva. Si no vuelve a precisar tu pregunta.
Un saludo.