Не обновляется поле в DBGride

                  DBGridEh1.Columns[0].FieldName := 'id';
                  DBGridEh1.Columns[0].Title.Caption := 'ID';          
                  DBGridEh1.Columns[0].ReadOnly := true;
                  DBGridEh1.Columns[1].FieldName := 'name';
                  DBGridEh1.Columns[1].Title.Caption := 'Название';
                  DBGridEh.Columns[1].ReadOnly := false;
                  DBGridEh1.Columns[2].FieldName := 'UserName';
                  DBGridEh1.Columns[2].Title.Caption := 'Пользователь';
                  DBGridEh1.Columns[2].ReadOnly := true;
                  DBGridEh1.Columns[3].FieldName := 'tu_state';
                  DBGridEh1.Columns[3].ReadOnly := true;

procedure Tf_main.sb_addClick(Sender: TObject);
begin  
                  ADOTable1.Insert;
                  f_addUnit.ShowModal;
end;

procedure ADOTable1AfterInsert(DataSet: TDataSet);
begin
      q_obw.Active := false;
     q_obw.Close;
     q_obw.SQL.Clear;
     q_obw.SQL.Text := 'SELECT idMax = MAX(tu_id) FROM type_unit';
     q_obw.Open;
     ADOTable1.FieldByName('id').AsInteger := q_obw.FieldByName('idMax').AsInteger+1;
     ADOTable1.FieldByName('usersId').AsInteger := userId;
     ADOTable1.FieldByName('state').AsInteger := 1;   
     q_obw.Active := false;
     q_obw.Close;
end;

procedure Tf_addUnit.Button2Click(Sender: TObject);
begin
 f_main.ADOTable1.Cancel;   // Îòìåíèòü
  Close;
end;
 
procedure Tf_addUnit.Button1Click(Sender: TObject);
begin
    if f_main.ADOTable1.Modified then   
    f_main.ADOTable1.Post;
    Close;
end;