Printer.Canvas.draw的问题

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
printer.BeginDoc;
Printer.Canvas.Draw(100,100,Image1.Picture.Graphic);
printer.EndDoc;
end;
程序出错:
[Error] Unit1.pas(91): Incompatible types: 'QGraphics.TGraphic' and 'Graphics.TGraphic'
[Fatal Error] testBarCode.dpr(6): Could not compile used unit 'Unit1.pas'
网上有很多这样的代码。
我不知是如何通过的，请高手解决。