Error de variable en bucle for

[jafera]

Buenas de nuevo.

Sigo dando palos al agua con el bucle contador, acumulador, generador o como quiera llamarse.

Este es el código que funciona "a medias" si el length de (a) es 1, no hay problema, pero si el length es 2, el resultado obtenido no es el deseado.

Código Delphi [-]
 
if Length(F_ModulDades.Tren_RealID_SERIE.Value) > 3 then
        begin
                d:=Copy(Serie,5,5);
                Temp:=digit+'00';
                Serie:=Copy(Serie,1,3);
                for i:=1 to Total do
                begin
                        a:=IntToStr
                        Delete(Temp,3,Length(a));
                        Codi:=Concat(Temp+a);
                        F_ModulDades.Numeros_Serie_Real.Open;
                        F_ModulDades.Numeros_Serie_Real.Append;
                        F_ModulDades.Numeros_Serie_RealNUM_SERIE.Value:=Serie+'.'+Codi;
                        F_ModulDades.Numeros_Serie_Real.Post;
                        Next;
                end;
        end;

Lo que obtengo:
269.501
269.502.
.
.
.
269.5010
269.5011
.
.
269.5022

Lo que necesito
269.501
269.502
.
.
.
269.510
269.511
.
.
.
269.522

Tambien me encuentro con series en que la primera unidad es la 201 pero hay 133, con lo que tambien deberia cambiar la centena, es decir 269.201,.... 269.299,.... 269.300,.....269.333

No se estoy un poco perdido. Seguro que hay algun metodo para poder realizar este contador pero....

Gracias por leerme

Saludos

Josep