怎么在字符串最后一位加1,并且长度不变

如何在字符串最后一位加1,并且长度不变
如001
想变成002,003,但不能加能0010,只能变成010,位数不变,
当然本身字符长度不确定

001递加009,010 只能三位
00011 递加成00012,00099,00100


trim(formatfloat('000',strtoint(copy(adoquery1.Fields[2].asstring,2,2))+1));
我这代码有点错误,不能确定字符串长度,怎么改

[解决办法]

Delphi(Pascal) code

FormatFloat(StringOfChar('0',length(adoquery1.Fields2].asstring)),adoquery1.Fields[2].AsInteger+1);