[ContraVeneno]

Empezado por tcp_ip_es

yo es que siempre lo hago a la cuenta la vieja aunque esta bien simplificar
P.D. He probado lo de Format('%.15d', Valor);
y no me funciona

Prueba con:

Código Delphi [-]
 showmessage( Format('%.5d', [5]));