如何格式化整型变量？ ( 积分: 20 )

比如有个变量是5,格式化后要变成05,如果是15的话，格式化后还是15,应该用什么函数啊。

要不用FORMAT要不就自己写一个小函数如下:
调用FormatInteger(5,2)
function FormatInteger(Int :Integer
numlen: Integer) :string;
var
temp:string;
begin
temp := '';
while length(temp) < numlen do
temp := '0' + temp;
temp := temp + Int2Str(int);
Result := Copy(temp,Length(temp) - numlen + 1 , numlen);
end;

ShowMessage(Format('%.2d',[5]));
ShowMessage(Format('%.2d',[15]));

多人接受答案了。