Add the asterix Barcode..To DriveSoft

procedure TForm1.Button1Click(Sender: TObject);
var
  LFont: TFont;
begin
  with Self.Canvas do
  begin
    Pen.Color := clBlack;
    Font.Name := 'Free 3 of 9 Extended';
    Font.Size := 18;
    Pen.Width := 3;
    TextOut(50, 50, '*123456789*');
  end;
end;

im not programmer but i found this code maybe to benefit this software,,,,thank you