Hola JXJ.
Te agrego otra forma de hacerlo:
Código Delphi
[-]
function CerosAIzquierda(Num, Cant: integer): string;
begin
Result:= StringOfChar('0', Cant - Length(IntToStr(num))) + IntToSTr(num);
end;
Un ejemplo de llamada:
Código Delphi
[-]
var
i: Integer;
begin
Memo1.Clear;
for i:= 115 to 132 do
Memo1.Lines.Add(CerosAIzquierda(i, 9));
end;
Saludos.