Criando Codigo de Barras em Delphi

Ola, estou criando um sistema simples para gerar código de barras em Delphi7. estou usando o componente “TBarcode”. O sistema teria dois TEdits onde um eu digitaria o código inicial e o outro o codigo final desejado para o sistema gerar todos os códigos desde o inicial até o final.
O problema eh que não estou conseguindo sacar como fazer isso, acho que teria que fazer um array? Bom vou postar aqui uma idéia inicial para quem tiver a disponibilidade de me ajudar. Galera, um grande abraço!

procedure TBC.Btn_GerarClick(Sender: TObject);
var

begin
Image1.Picture := nil;

// aqui iria o codigo para fazer calculo dos
// códigos (inicial=Edit_Cod1.Text até o final=Edit_Cod2.Text)
Barcode1.Text := Edit_Cod1.Text;


//aqui seria onde o sistema imprimiria todos os
//codigos no componente TImage
Barcode1.DrawBarcode(Image1.Canvas);
end;