Using a bar code directly generated FastReport

procedure TForm1.Button1Click(Sender: TObject);
var
   x:TfrxbarCodeView;
begin

     x:=TfrxbarCodeView.Create(Self);
     x.BarType:=bcCode128;
     x.Expression:='111';
     x.Width:=20;
     x.Height:=20;
     x.Draw(Canvas,3,6,15,15);
     x.Free;

end;

 

 Need to reference unit: frxBarcode, frxBarcod

Thanks LWWVB group of friends to share!