数值转成特定格式字串问题

[delphi1234567]

在生成自动编号时，需要在流水号前补足特定位数的“0”，如：

00001
00002

现在取得的数值是2，如何转成字串，并且按上面格式转换？

[lxpbuaa]

var
I: Integer;
R: String;
begin
I := 1;
R := IntToStr(I);
R := StringOfChar('0', 5-Length(R)) + R;
ShowMessage(R);
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[ehom]

Format('%.5d', [1])

[ehom]

Format('%.5d', [1])

[wjt1982]

这是我自己的不足8位自动补0
while (length(dbeQCPH.Text)<8) and (length(dbeQCPH.Text)>3) do
begin
dbeqcph.Text :=leftstr(dbeQCPH.Text,3)+'0'+midstr(dbeQCPH.Text,4,length(dbeQCPH.Text)-3);
end;