rellenar una cadena con 0's??????

[mguixot]

La opcion de la funciona Format, me parece la mas apropiada, el problema que tengo, es que no se como pasarle como parametro una variable tipo 'string' en la que tengo el nº a formatear, es decir:

n:string;

// entrada por telclado
n := InputBox('Código:', 'Código', '');

n := Format('%0.6d', n);

// el problema que la funcion Format, no permite un parametro string


Sabria alguien como conseguir hacer que funcione esto?

Muchas gracias y Saludos.