anchor.diff:      FObjectEvents.Add(LItem);
     end;
   end;
  -{$ENDIF}
  +{$ENDIF SupportGeneric}
   
   procedure TDDuiForm.AddObjectClick(AObjName: string; AEvent: TDuiNotifyEvent);
   begin
  
positive.code: 
    TDDuiApp = class(TComponent)
    private
    {$IFNDEF FPC}
      FOld: TMessageEvent;
      FOnMessage: TMessageEvent;
    {$ENDIF}
      FZipFileName: string;
      FResourcePath: string;
      FResourceDll: string;
  
negative.code:   begin
      Handled := True;  // δ
    end;
    if Assigned(FOnMessage) then
      FOnMessage(Msg, Handled);
    if Assigned(FOld) then
      FOld(Msg, Handled);
  end;
  
  
  