In
OnCreateAdapter
erst ABindSourceAdapter befüllen wenn dein VM assigned ist.
Um das erneut anzutriggern, musst du die AdapterBindSource.Active aus und wieder anschalten.
Oder du pfeifst auf dieses dumme und verbuggte Event und schreibst einfach in deinen ViewModel setter:
Delphi-Quellcode:
AdapterBindSource1.Adapter := TObjectBindSourceAdapter<TMyViewModel>.Create(Self, fMyViewModel);
AdapterBindSource1.Active := True;