uso de Canvas en android da error pero no bajo windows

[Esteban74]

Hola, el siguiente código me produce una excepción bajo Android pero funciona perfectamente en Windows, ¿a alguien le paso lo mismo o tiene una idea de por que sucede?

Código Delphi [-]
function Tfrm_Hoy.calcularAnchoString(AText: string): Single;
var
  bmp: TBitmap;
  ancho: Single;
begin
  bmp := TBitmap.Create;
  try
    bmp.Canvas.Font.Style := [];
    bmp.Canvas.Font.Family := frmPrincipal.configuracion.Family;
    bmp.Canvas.Font.Size := frmPrincipal.configuracion.tam_fuente;
    ancho := bmp.Canvas.TextWidth(AText);
    Result := ancho;
  finally
    bmp.Free;
  end;
end;

Me canse de registrar la web pero no encuentro ningún problema similar, agradecería mucho una idea de que puede estar pasando

[Esteban74]

Bueno con la idea de que un TLayout al tener una propiedad parent podría llegar a heredar los atributos de fuente (que es donde fallaba el código al intentar asignarles un valor) podría funcionar, y funcionó anda en Windows y Android, no estoy seguro bien por que pero cito la solucion al problema, por si a alguien le pasó.

Código Delphi [-]
function Tfrm_Hoy.calcularAnchoString(AText: string): Single;
var
  unLayout: TLayout;
  ancho: Single;

begin
  unLayout := TLayout.Create(frmPrincipal);
  unLayout.Parent := frmPrincipal;
  Memo1.Lines.Add('paso: bmp := TBitmap.Create; ');
  try
    unLayout.Canvas.Font.Style := [];
    unLayout.Canvas.Font.Family := frmPrincipal.configuracion.Family;
    unLayout.Canvas.Font.Size := frmPrincipal.configuracion.tam_fuente;
    ancho := unLayout.Canvas.TextWidth(AText);
    Result := ancho;
  finally
    unLayout.Free;
  end;
end;

[[ElKurgan]]

Gracias por compartir la solución

Saludos