bmp

function GetNumberBuffer(cZi: string; cwidth, cheight: Integer; FontName: string; bold, italic: Boolean): TDataBytes;
var
  col, row: Integer;
  cw, ch, cleft, ctop: Integer;
  style: TFontStyle;
begin
  with TBitmap.Create do
  try
    SetSize(cwidth, cheight);
    PixelFormat := pf32bit;
    cw := Canvas.TextWidth(cZi);
    ch := Canvas.TextHeight('01234567890.');
    cleft := (cwidth - cw) div ;
    ctop := (cheight - ch) div ;
    if bold then Canvas.Font.Style := Canvas.Font.Style + [fsBold];
    if italic then Canvas.Font.Style := Canvas.Font.Style + [fsItalic];
    Canvas.TextOut(cleft, ctop, cZi);
 
    SetLength(Result, Width, Height);
    for col :=  to Width -  do
      for row :=  to Height -  do
        if Canvas.Pixels[col, row] =  then
          Result[col, row] :=
        else Result[col, row] := ;
  finally
    Free;
  end;
end;