Hace poco hablamos de algo parecido, en otro hilo, pero de todas maneras colocare aquí el ejemplo ya que lo tengo a mano y además por lo que estoy algo enfermo me da pereza buscar el otro hilo:
Código Delphi
[-]Edit1.Text := StringOfChar('0', 10 - Length(Edit1.Text))+Edit1.Text;
espero te sirva.