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