function LeadZero(const I: integer; const NbZ: integer): string; begin result := format('%.*d', [NbZ, I]); end;