type
  TMyForm = class(TForm)
    {...}
    Table1: TTable;
    DataSource1: TDataSource;
  private
    FDL: TFieldDataLink;
    procedure RecChange(Sender: TObject);
  public
    {...}
  end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
  FDL := TFieldDataLink.Create;
  FDL.OnDataChange := RecChange;
  FDL.DataSource := DataSource1;
  FDL.FieldName := 'MyFieldName';
end;

procedure TTabEditDlg.FormDestroy(Sender: TObject);
begin
  FDL.Free;
end;

procedure TTabEditDlg.MasterChange(Sender: TObject);
begin
  {... тут pеагиpуй на изменения ...}
end;