Fórum Concatenar numero #398709

Colegas, boa noite.

Estou necessitando criar um valor para código de barras, preciso de um procedimento para juntar números dessa forma.

var
pais,empresa,prod,barra: string;

pais:='789';
empresa:='12345';
prod:=IntToStr(ibprodutoID.AsInteger);
barra:=pais+empresa+prod;

o resultado seria: 789123451 = 9 caracteres

preciso na soma dessas variaveis 12 caracteres, só que o campo prod começa com 1 casa decimal assim:

id:
1
2
3
etc

teria uma forma de preencher com zero a variavel prod se o id for de 1 casa decimal, ficando assim a variavel prod:

0001
0002
0003
etc

se a variavel prod for 2 casas ficaria assim:
0011
0012
0013
etc

alguem teria uma função o procedimento para fazer isso?

Grato:
Jose Luiz