Grid index out of range

[jmlifi]

Código Delphi [-]
procedure TEdOfertaFrm.PzDsDataChange(Sender: TObject; Field: TField);
begin
if DgBGrid1.Columns.Count>=6 then
 if (trim(PzOfertas.FieldByName('TIPOM').AsString)<>'') then
     if (PzOfertas.FieldByName('VCORTE').AsFloat<>0) or
        (PzOfertas.FieldByName('VPz').AsFloat<>0) then
        DbGrid1.Columns[5].Readonly := true
     else
        DbGrid1.Columns[5].Readonly := false
  else
     DbGrid1.Columns[5].Readonly := false ;
end;

está bien?

[[eduarcol]]

eso esta bien dependiendo lo que quieras lograr, pero si deberia funcionar para controlar el error que dices te da

[jmlifi]

Si comento el codigo anterior, me sigue dando el error.
Estoy desesperado.

[[eduarcol]]

sigo sin entender, podrias tomarte 5 minutos para explicar bien lo que sucede, porq comentas el codigo??

[jmlifi]

Lo Explico:

SOLO SUCEDE EN ALGUNOS CASOS.

Cuando intento añadir una nueva linea en el DbGrid a veces se llega a ejecutar :

Código Delphi [-]
procedure TEdOfertaFrm.PzOfertasNewRecord(DataSet: TDataSet);
var
  n : integer;
begin
  PzOfertas.FieldByName('OFERTA').AsString  := OfertasFrm.OfertasOFERTA.AsString;
  PzOfertas.FieldByName('ACEPTADA').AsString  := 'N';
  PzOfertas.FieldByName('PzasArea').AsInteger := 1;
  try
     n := PzOfertas.FieldByName('MaxPos').Value + 1
  except
     n := 1;
  end;
  PzOfertas.FieldByName('O_Oferta').AsString  := AddCeros(n,3);
  BorrarPieza.Enabled := true
end;

y todo va correcto.
Y otras veces me da el error: "Grid index out of range"

PzOfertas lo tengo declarado de la siguiente manera:

Código Delphi [-]
PzOfertas := OfertasFrm.PzOfertas;

ClientDataSet de otro formulario

[[eduarcol]]

La verdad no veo la relacion, son dos codigos distintos lo que colocas, y el newrecord, se debe ejecutar siempre que agregas un registro

[jmlifi]

Antes de ejecutarse el Newrecord aparece el error.