xe3 c++ buider下 fmx打印报错，而拿delphi写就没有关问题，求解

xe3 c++ buider下 fmx打印报错，而拿delphi写就没问题，求解
C++ builder下

TRectF MyRect;
int x1, y1, x2, y2;
TPrinter *printer = Printer;
String s = "打印测试!";

// if(PrintDialog1->Execute() ) {
printer->Refresh();
printer->ActivePrinter->SelectDPI(100, 100);
// prn->ActivePrinter->ActiveDPIIndex = 1;
printer->Canvas->Font->Size = 15;
printer->Canvas->Font->Family = "Arial";

Printer->Canvas->Fill->Color = claBlack;
Printer->Canvas->Fill->Kind = TBrushKind(1);

printer->BeginDoc();

x1 = 10;
y1 = 10;
x2 = x1 + prn->Canvas->TextWidth(s);
y2 = y1 + prn->Canvas->TextHeight(s);

MyRect.init(x1, y1, x2, y2);

printer->Canvas->FillText(MyRect, s, false, 1,
TFillTextFlags() << TFillTextFlag::ftRightToLeft, TTextAlign::taLeading,
TTextAlign::taLeading);
printer->EndDoc();


delphi下，可以正常
var
  l,t,r,b: Integer;
  s: String;
  source, dest : TRectF;
begin
      //Set default DPI for the printer. The SelectDPI routine defaults
      //to the closest available resolution as reported by the driver.
      Printer.ActivePrinter.SelectDPI(1200, 1200);
      Printer.BeginDoc;

      //Print country name on top.
      Printer.Canvas.Font.Size := 15;
      Printer.Canvas.Font.Family   := 'Arial';
      Printer.Canvas.Font.Style  := [TFontStyle.fsbold];
      Printer.Canvas.Fill.Color  := claBlack;
      Printer.Canvas.Fill.Kind := TBrushKind.bkSolid;

      s := '打印测试';
      l := 10;
      t := 10;
      r := l + Round(Printer.Canvas.TextWidth(s));
      b := t + Round(Printer.Canvas.TextHeight(s));

      Printer.Canvas.FillText(TRectF.Create(l, t, r, b), s, false, 1, [TFillTextFlag.ftRightToLeft], TTextAlign.taLeading, TTextAlign.taLeading);

      Printer.Canvas.Font.Size := 20;
      Printer.Canvas.Font.Family   := '黑体';
      s := '打印测试';
      l := 20;
      t := 70;
      r := l + Round(Printer.Canvas.TextWidth(s));
      b := t + Round(Printer.Canvas.TextHeight(s));

      Printer.Canvas.FillText(TRectF.Create(l, t, r, b), s, false, 1, [TFillTextFlag.ftRightToLeft], TTextAlign.taLeading, TTextAlign.taLeading);

      Printer.Canvas.Font.Size := 30;
      Printer.Canvas.Font.Family   := '宋体';

      s := '打印测试';
      l := 30;
      t := 130;
      r := l + Round(Printer.Canvas.TextWidth(s));
      b := t + Round(Printer.Canvas.TextHeight(s));
      Printer.Canvas.FillText(TRectF.Create(l, t, r, b), s, false, 1, [TFillTextFlag.ftRightToLeft], TTextAlign.taLeading, TTextAlign.taLeading);

      Printer.EndDoc;
求c++ builder的解决方法
[解决办法]
TPrinter *printer = Printer();
[解决办法]
TPrinter *printer = new TPrinter();