用Format格式化字符串，如何前补0？

Question

我想给一个字符串前补0后符值给一个字符串变量，语句如下：
strtmp:=Format('%015.15s',[Trim(edit1.Text)]);
showmessage(strtmp);
发现strtmp没有前补0，不知道应该如何实现，请各位大虾知道一下！

Answer 1

是啊，整数%d是可以的，我的字符串也是数值型的，就是有可能超过12位，所以不能用整数%d来实现。
楼上的你说的后面一种方法怎么实现，详细点，我就是把文本框输入的内容变成15位，不足15位前补0，前台输入用TEdit，谢谢！

Answer 2

ShowMessage(StringReplace(Format('%15s',['aa']),' ','0',[rfReplaceAll]));