Buenas!
Puedes pasar a String el número de usuario y añadir los ceros por la izquierda hasta que la cadena tenga 7 dígitos?
Código Delphi
[-]
var temp : String
temp := IntToStr(codigo);
while length(temp) < 7 do temp = '0'+temp;
y te queda en temp el código del usuario correctamente formateado
Un saludo
Edu