bmp := TBGRABitmap.Create(1024,1024, clBlack);
  bmp.FontHeight := 30;
  bmp.FontAntialias := true;
  bmp.FontStyle := [fsBold];
  bmp.TextOut( 0, 0, textonaovazio, ColorToBGRA(ColorToRGB( clWhite)), taLeftJustify);
  bounds := bmp.GetImageBounds;

bounds contains 0,1024 0,1024

and I need bounds of text generated by TextOut. Is it avalaible somewhere?

thank for any hint

Philippe