Error de variable en bucle for

[jafera]

Buenas a todos.

Estoy tratando de usar un bucle for para añadir automaticamente n registros a una tabla, pueden ir de uno a 150 aproximadamente y claro al hacerlo a mano siempre tenemos la posibilidad de olvidarnos de uno, de repetir otro, etc.
Para esto he intentado armar el siguiente bucle:

Código Delphi [-]
 
procedure TF_Real.ToolButton9Click(Sender: TObject);
var Temp,Codi,a: String;
    i, Total: Integer;
begin
        F_ConfirmacioCreaCodis:=TF_ConfirmacioCreaCodis.Create(Self);
        try
                If F_ConfirmacioCreaCodis.ShowModal = mrok then
                begin
                        Total:=F_ModulDades.Tren_RealUNITATS_CONSTRUIDES.Value;
                        for i = 1 to Total do
                        begin
                                a:=IntToStr(i);
                                Temp:='000';
                                Delete(Temp,1,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;
                                i:=i+1;
                        end;
                end;
        finally
                F_ConfirmacioCreaCodis.Free;
        end;
        Showmessage('Procés finalitzat');
end;

Al compilar me da esto: [Error] Real.pas(776): For loop control variable must be simple local variable

He colocado la variable donde está, en la declaracion public, en var del formulario y nada, siempre el mismo error.

Alguien me puede echar un cable? y de pasada me podeis decir si el código es correcto o necesitaria alguna modificacion.

El identificador único ID ya se lo paso en el evento onnewrecord de la tabla al igual que otro campo que es fijo ID_SERIE.

Gracias por adelantado

Josep