Grid index out of range

[jmlifi]

Buenas noticias. Se cuando da el error:
cuando intento añadir una nueva fila se ejecuta lo siguiente:

Código Delphi [-]
procedure TOfertasFrm.PzOfertasCalcFields(DataSet: TDataSet);
begin
  PzOfertasACEPTADACALC.AsString   := CompletaSiNo(PzOfertasACEPTADA.AsString);
  //PzOfertasPIEZAVERSION.AsString   := PzOfertasREF.AsString+'   '+PzOfertasC_VR.AsString;
  try
    PzOfertasImporte.AsFloat         := PzOfertasVPU.AsFloat * PzOfertasQPZ.AsInteger;
    PzOfertasImporteMaterial.AsFloat := PzOfertasVPz.AsFloat * PzOfertasQPZ.AsInteger;
  except
  end;
  try
     OfertasCANT.Value := PzOfertasTOTAL.Value
  except
  end;
end;

se recorre desde el último registro hasta el primero. por cada registro se ejecuta el código. Bien, cuando acaba con el primero se ejecuta por última vez y falla en :

Código Delphi [-]
try
     OfertasCANT.Value := PzOfertasTOTAL.Value
  except

PzOfertasTOTAL.value = 19855,56
Todos los demás valor 0

¿ a qué es debido ?