[zeta2]

Código Delphi [-]
procedure TFPresentacion.BNuevoClick(Sender: TObject);

Var
 Codigo:Integer;

begin
 Codigo:=0;
 DBEApellidoyNombre.Enabled:=True;
 DBETipoDoc.Enabled:=True;
 DBEDoc.Enabled:=True;
 DBEDecreto.Enabled:=True;
 DBEDuracion.Enabled:=True;
 DBETitulo.Enabled:=True;
 DBEPromedio.Enabled:=True;
 DBEPromPrac.Enabled:=True;
 DBEPromocion.Enabled:=True;
 DBELMatriz.Enabled:=True;
 DBEFolio.Enabled:=True;
 DBEDia.Enabled:=True;
 DBEMes.Enabled:=True;
 DBEAnio.Enabled:=True;
 BInsertar.Enabled:=True;
 CBBuscarpor.Text:='Cod.';
 TBTitulo.IndexFieldNames:='Cod.'; \\Cod. es un campo e indice secundario.
 TBTitulo.First;
  If DBECod.Text='' Then
   Begin
    TBTitulo.Append;
    TBTitulo ['Cod.']:='1';
    DBEApellidoyNombre.SetFocus;
    BNuevo.Enabled:=False;
   End
  Else
   Begin
    TBTitulo.Last;
    Codigo:= strtoint(DBECod.Text);
    TBtitulo.Append;
    DBECod.Text:= inttostr (Codigo + 1);
    DBEApellidoyNombre.SetFocus;
    BNuevo.Enabled:=False;
   End;
end;

Este es el código caro. La verdad nunca me pasó esto... Y pruebo y pruebo y no pasa nada.
Estoy por hacer la tabla de nuevo para ver si el problema está ahí y si asigné alguna propiedad errada. El asunto es que cuando presiono el boton "Insertar" que contiene el código "TBTitulo.Post;" aparece ese mensaje...

Gracias caro por contestar...

Saludos.