การเติมหน้าตัวเลขด้วย 0 ง่ายๆด้วยโดยใช้ Function Format [Delphi]

{ตัวอย่างเรียกใช้งาน}
procedure TSaleOrder_F.bbtnAddClick(Sender: TObject);
begin
  SaleOrder_Mst_F.edtDocID.Text := Format( '%.5d',[countDocId]);
end;

อธิบาย : %.5d กำหนดให้แสดง Decimal จำนวน 5 หลัก คือ 00000
              countDocId นำตัวแปรชนิด integer หรือเป็นตัวเลขจำนวนเต็มมาใส่