Aquí tienes un ejemplo que acabo de preparar, es para añadir ceros por la izquierda.
Código Delphi
[-]Function FillSpacesLeft(cVar:String;nLen:Integer):String;
begin
Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FillSpacesleft(Edit1.Text, 10);
end;
Un Saludo.