Если вы работаете локально, то никаких проблем с обновлением набора данных у  вас не возникает. При изменении данных, вы сразу видите результат на экране. В  сети ситуация несколько иная : пользователи на других компьютерах не видят тех  изменений, которые происходят без их участия. Конечно, ничто не мешает нам через определенные интервалы времени обновлять элементы управления с помощью   Refresh, однако не очень приятно наблюдать за тем, как ваша программа  превращается в новогоднюю елку, постоянно мерцая элементами управления. 

  Проблема решается с помощью BDE Callback Functions : 

// Объявления...        
 TForm1 = class(TForm)
// ...
public
 function TableChangeCallBack(CBInfo: Pointer): CBRType;
 procedure UpdateTableData(var Msg: TMessage); message WM_UPDATETABLE;
 procedure TablesAfterOpen(DataSet: TDataSet);
end; 

// Реализация... 
function TForm1.TableChangeCallBack(CBInfo: Pointer): CBRType;
 begin
  PostMessage(Handle, WM_UPDATETABLE,  0 ,  0 );
 end;

procedure TForm1.UpdateTableData(var Msg: TMessage);
 Var
   Index : Integer;
 begin
  For Index :=  0  To DBDataModule.ComponentCount -  1  Do
  // DBDataModule - это Data module, в котором находятся все
  // TTable нашего   проекта...
     If DBDataModule.Components[Index] Is TTable Then
       If TTable(DBDataModule.Components[Index]).State = dsBrowse 
       then TTable(DBDataModule.Components[Index]).Refresh;
 end;

procedure TForm1.TablesAfterOpen(DataSet: TDataSet);
 begin
  TBDECallback.Create(Self, TTable(DataSet).Handle, cbTableChanged, nil,  0 ,
TableChangeCallBack, True);
 end;
// На событие OnCreate в Data Module подключаем наши функции к TTable... 
procedure TDBDataModule.DBDataModuleCreate(Sender: TObject);
 Var
   Index : Integer;
begin
 For Index :=  0  To ComponentCount -  1  Do
    If Components[Index] Is TTable Then
      TTable(Components[Index]).AfterOpen := Form1.TablesAfterOpen;
end;
  Но и это еще не все... Теперь нам нужен TTimer... 
procedure TForm1.FrashmanTimer(Sender: TObject);
 Var
   Index : Integer;
begin
 Try
  For Index :=  0  To DBDataModule.ComponentCount -  1  Do
     If DBDataModule.Components[Index] Is TTable Then
       If (TTable(DBDataModule.Components[Index]).Active)
         And
          (TTable(DBDataModule.Components[Index]).State = dsBrowse) Then
           DBIForceReRead(TTable(DBDataModule.Components[Index]).Handle);
 Except End;
end;