[Kandorf]

No puedo editar mi anterior mensaje...
Tiene un fallo el código, donde pone:

Código Delphi [-]
// Da a los números de una cadena la longitud especificada añadiendo 0s a los lados
function FStrAgrandarNúmeros(Cadena: String; Longitud: Integer): String;
var
  i, j: Integer;
begin
  if Longitud>0 then begin
    if Longitud>=3 then
      Longitud:=Longitud;
    i:=1;

El "if Longitud>=3" lo puse para probar el código y poner un breackpoint ahí, quedaría

Código Delphi [-]
function FStrAgrandarNúmeros(Cadena: String; Longitud: Integer): String;
var
  i, j: Integer;
begin
  if Longitud>1 then begin // Con 1 sería más eficiente, todo número ya va a tener como mínimo 1 de longitud, así que no habría que agrandarlo
    //Quito las líneas del if, que no valen para nada
    i:=1