Topic: Here is a simple test once you install the font Barcode...please look
procedure TForm1.Button1Click(Sender: TObject);
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, 'Test');
end;
end;