[alfil123]

si comento todo el evento no se pruduce el error,


esta es la consulta para guardar

Código Delphi [-]
procedure TMantenimiento_Docente.ToolButton2Click(Sender: TObject);
begin
  inherited;
  if (LabeledEdit2.text='') or (LabeledEdit3.text='') or (LabeledEdit4.text='') or (LabeledEdit5.text='') or (LabeledEdit6.text='') or (LabeledEdit7.text='') or (LabeledEdit8.text='')or (LabeledEdit9.text='')
  then
  begin
  showmessage('le falta completar los campos');
  exit;
       end;
ADOQuery1.Close;
ADOQuery1.sql.Clear;
ADOQuery1.SQL.Add('select *');
ADOQuery1.SQL.Add('from Docente');
ADOQuery1.open;
  ADOQuery1.Append;
  // ADOQuery1.FieldByName('id_Docente').asstring:= LabeledEdit1.text;
ADOQuery1.FieldByName('Nombres').asString:= LabeledEdit2.text;
ADOQuery1.fieldbyname('ap').asString:= LabeledEdit3.text;
ADOQuery1.fieldbyname('am').asString:= LabeledEdit4.text;
ADOQuery1.fieldbyname('Dni').asstring:= LabeledEdit5.text;
ADOQuery1.fieldbyname('direccion').asString:= LabeledEdit6.text;
ADOQuery1.fieldbyname('telefono').asString:= LabeledEdit7.text;
ADOQuery1.fieldbyname('Especialidad').asString:= LabeledEdit8.text;
ADOQuery1.fieldbyname('Area').asString:= LabeledEdit9.text
    ADOQuery1.post;
         ADOQuery1.close;
         LabeledEdit2.text:='';
         LabeledEdit3.text:='';
         LabeledEdit4.text:='';
         LabeledEdit5.text:='';
         LabeledEdit6.text:='';
         LabeledEdit7.text:='';
         LabeledEdit8.text:='';
         LabeledEdit9.text:='';
         showmessage('sea agregado un nuevo docente ');

end;

y esta es la consulta de creacion del form

Código Delphi [-]
procedure TMantenimiento_Docente.FormShow(Sender: TObject);
begin
  inherited;
ADOQuery1.close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.add('Select* from DOCENTE');
   ADOQuery1.Open;
end;
procedure TMantenimiento_Docente.Formcreate(Sender: TObject);
begin
  inherited;
ADOQuery1.close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.add('Select* from DOCENTE');
   ADOQuery1.Open;
end;

grasias por su tiempo