procedure TForm20.Init_data1;
var
  ic : integer;
begin
  if ivid = 4 then ic := IBvw.FieldByName('codpvw').AsInteger else ic := IBobj.FieldByName('codpoo').AsInteger;

  IBrem.Close;
  try
    IBrem.ParamByName('iobj').AsInteger := ic;
    IBrem.Open;
    shapka2;
  except
    ShowMessage('Ошибка');
  end;
end;

процедура редактирования

procedure Red;

  if Form28.ShowModal = 1 then
    if MyBase.Red_rempo(ic, add_rempo.ikol, add_rempo.bj1, add_rempo.bj2, add_rempo.s1, add_rempo.s2) > 0 then Init_data1
end

все нормально проходит, но в редактировании данных обновление не происходит.Грид становится пустым.Но когда делаю руками обновить, обновленные данные показывает.Это не работает тока редактированием данных.В чем дело?

хыхы