将raveCode128BarCode组件直接绘制到Canvas

Question

我需要条形码图片。没有报告，打印等，我想使用TRaveCode128BarCode组件。

最简单的方法是什么？

有可能是这样的：

procedure TForm1.Button1Click(Sender: TObject);
var
  rvc:TRaveCode128BarCode;
begin
  rvc:=TRaveCode128BarCode.Create(nil);
  rvc.Text :='123' ;

  rvc.Paint(self.Image1.Canvas );
end;