[ pascal ] Des zero a gauche d'un entier

Bonjour je souhaiterai savoir s'il existe une fonction ou methode permettant de mettre des zeros a gauche d'un nombre?

exemple si je tape

Int_A : Integer = 0001;
showMessage(strtoint(int_a));

ca m'affiche 0001 et non 1.

j'en ai besoin pour generer des noms de 5 caracteres commencant par une lettre suivi d'un nombre. Et comme la taille est obligatoirement de 5 caracteres, je dois combler les vides par des zero a gauche du nombre.

avec des boucles ca ne semble pas trop compliqué mais quand on franchi un pallier ( les dizaines, les centaines et les milliers ou il faut donc mettre un zero de moins ) ca par vite en code souk. d'autant plus que ca n'est pas la seule difficulté de ce que je dois realiser.

Merci de pouvoir m'aiguiller

poipoi