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

Question

在生成自动编号时，需要在流水号前补足特定位数的“0”，如：00001
00002现在取得的数值是2，如何转成字串，并且按上面格式转换？

Answer 1

var
  I: Integer;
  R: String;
begin
  I := 1;
  R := IntToStr(I);
  R := StringOfChar('0', 5-Length(R)) + R;
  ShowMessage(R);
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

这是我自己的不足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;