Delphi - 以零为单位递增整数

我怎样才能提高整开始用零00000000,00000001,00000002 ...等等.

var
  i:Integer;
begin
  i := 00000000;
  Inc(i);
  ShowMessage(IntToStr(i));

问题是inc程序会修剪左边的零.

输出:

1

不是00000001.

正如@Sir Rufo所写,它只是格式化的问题,可能你正在寻找SysUtils.Format

// SysUtils should be in uses;
...
const
  DesiredLen = 8;
var
  i:Integer;
begin
  i := 0;
  Inc(i);
  ShowMessage(SysUtils.Format('%.*d', [DesiredLen, i]))