（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2

>>601 そんな面倒なことしなくても、
format の精度指定子と間接指定子で簡単に実現できるよ

function IntToZeroStr(dt,keta:integer):string;
begin
　result := Format('%.*d',[keta,dt]);
end;