[jafera]

Gracias, tiene toda la razón había olvidado los dos puntos, el código modificado queda así:

Código Delphi [-]
 
procedure TF_Real.ToolButton9Click(Sender: TObject);
var Temp,Codi,Serie,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;
                        Serie:=F_ModulDades.Tren_RealID_SERIE.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;
                                Next;
                        end;
                end;
        finally
                F_ConfirmacioCreaCodis.Free;
        end;
        Showmessage('Procés finalitzat');
end;

Saludos

Josep