Gracias Oscarac.
Lo he solucionado asi:
Código Delphi
[-]while not Inscripcio.Eof do
begin
for v := 1 to v1 do
begin
for z := 1 to z1 do
begin
F_ModulDades.Punts_Zona.Open;
F_ModulDades.Punts_Zona.Append;
F_ModulDades.Punts_ZonaID_CURSA.Value:=InscripcioCURSA.Value;
F_ModulDades.Punts_ZonaDATA.Value:=F_ModulDades.CursaDATA_CURSA.Value;
F_ModulDades.Punts_ZonaDORSAL.Value:=InscripcioDORSAL.Value;
F_ModulDades.Punts_ZonaVOLTA.Value:=v;
F_ModulDades.Punts_ZonaZONA.Value:=z;
F_ModulDades.Punts_ZonaPUNTS.Value:=0;
end;
F_ModulDades.Punts_Zona.Post;
end;
Inscripcio.Next;
end;
Ahora si que el resultado es correcto
Saludos
Josep