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

[jachguate]

algo así como

n := InputBox('Código:', 'Código', '');
try
  n := Format('%0.6d', [StrToInt(n)]);
except
  on EConvertError do
    VosSabrasQueHacerConElError;
end;

Hasta luego.