[ecfisa]

Hola JXJ.

Te agrego otra forma de hacerlo:

Código Delphi [-]
{ Num: número - Cant: cantidad total de dígitos }
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.