tOb[i].im.Transparent := True;
b := tOb[i].im.Picture.Bitmap;
b.PixelFormat := pf32bit;
b.TransparentColor := clFuchsia;
b.Transparent := True;
b.TransparentMode := tmFixed;
b.Canvas.CopyMode := cmSrcCopy;
b.Canvas.Brush.Style := bsSolid;
b.Canvas.Brush.Color := b.TransparentColor;
b.Canvas.FillRect(0,0,w,h);
//dm.il64x50.GetBitmap(1, b2);
b2 := TBGRABitmap.Create('comp80x64.bmp');
b2.ReplaceColor(CSSFuchsia, BGRAPixelTransparent); // turn off anti-aliasing for fonts
b2.CanvasBGRA.Font.Height := -10;
fh := b2.Height-(b2.CanvasBGRA.TextHeight('Fj')-2);
b2.CanvasBGRA.Font.Style := [fsBold];
b2.CanvasBGRA.Font.Color := clBlack;
b2.CanvasBGRA.Brush.Style := bsClear;
b2.CanvasBGRA.TextOut(CenterX(0, w, tOb[i].NAZMASZ, b2.Canvas), fh, tOb[i].NAZMASZ);
b.Canvas.Draw(0,0,b2.Bitmap);
b2.Free;