Bmp:=TBitmap.Create;
      Bmp.PixelFormat:=pf32bit;
      Bmp.Width:=100;
      Bmp.Height:=100;
      Bmp.Canvas.MoveTo(0,0);
      Bmp.Canvas.LineTo(100,100);
      Bmp.Canvas.TextOut(10,10,'123');  <-- Под центосом падает тут.

  procedure TCanvas.Draw(X, Y: Integer; Bmp: TBitmap);
type
  TRGB = packed record B, G, R: byte end;
  TRGBA = packed record B, G, R, A: byte end;
var
  SCol : ^TRGB;
  DCol : ^TRGBA;
var
  i,j : Integer;
begin
  for i:=0 to Bmp.Height-1 do begin
    SCol:=Bmp.Scanline[i];
    DCol:=FBmp.Scanline[i+Y];
    Inc(DCol,X);
    for j:=0 to Bmp.Width-1 do begin
        if (SCol.R<>255) or (SCol.G<>255) or (SCol.B<>255) then begin
        DCol.R:=SCol.R;
        DCol.G:=SCol.G;
        DCol.B:=SCol.B;
        DCol.A:=255;
      end;
      Inc(SCol);
      Inc(DCol);
    end;
  end;
end;

function TCanvas.TextHeight(const Text: string): Integer;
begin
  Result:=trunc(abs(Font.Height)*1.45);
end;


function TCanvas.TextWidth(const Text: string): Integer;
begin
  Result:=Length(Text)*trunc(abs(Font.Height)*0.7);
end;