TBARCODE

Bom dia a todos,

Estou desenvolvendo um programa que deve gerar e ler código de barra, e neste programa eu escrevi o código abaixo mas falta o componente TBarCode, como faço para instalar este componente e de acordo com o código como eu devo fazer para iniciar a geração de códigos de barra?

Aos que puderem me ajudar desde já eu agradeço.

Att.

Valdir Lima

procedure Tfproduto.SpeedButton9Click(Sender: TObject);
Var
I:Integer;
begin

BOK:=InputQuery (´Etiquetas´, ´Digite o nº de etiquetas a ser impressa´,st);
if BOK then begin

I:=0;

BarCode1.Digits:=´789827287´ + tbproduto[´codbarra´];

tbcodbarra.close;
tbcodbarra.emptytable;
tbcodbarra.open;

While I < StrToInt(st) do Begin
tbcodbarra.Insert;
tbcodbarra[´Codigo´]:=tbproduto[´codigo´];

fcodbarra.LProduto.Caption:=tbproduto[´nome´];
fcodbarra.LIngrediente.Caption:=tbproduto[´marca´];
I:=I + 1;
end;


BarCode1.BarcodeCopy;
fcodbarra.QRImage1.Picture.Assign (ClipBoard);
//FormEtiqueta.LData.Caption := MaskEdit1.Text;
// FormEtiqueta.LPeso.Caption := EditPeso.Text;
// FormEtiqueta.LMS.Caption := Edit1.Text;
fcodbarra.Preview;
clipboard.clear;
end;