anchor.diff:      FModel.DetachObserver(Self);
     FModel  := nil;
     FView   := nil;
  -  
     inherited BeforeDestruction;
   end;
   
  
positive.code:   
    for i := 0 to FModel.Count-1 do
    begin
      if not FModel.Items[i].Deleted or FShowDeleted then
        DoCreateItemMediator(FModel.Items[i], i);
    end;
  end;
  
negative.code:     procedure   SetSelectedObject(const AValue: TtiObject);
      procedure   SetShowDeleted(const AValue: Boolean);
      procedure   DoCreateItemMediator(AData: TtiObject); overload;
      procedure   DoCreateItemMediator(AData: TtiObject; ARowIdx : Integer); overload;
    protected
      FDisplayNames: string;
      FIsObserving: boolean;
  