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