[[maeyanes]]

Otra forma de lograr esto es la función Format:

Código Delphi [-]
function FormatNumber(Number, StrLen: Integer): string;
begin
  Result := Format(Format('%%.%dd', [StrLen]), [Number])
end;

// Ejemplo:
Str := FormatNumber(123, 10); // Str = '0000000123'