anchor.diff:  var
     Str: string;
   begin
  -  Str:= DoEvent(Key, '"on_key_up"', '');
  +  Str:= DoEvent(Key, '"on_key_up"', '', false);
     if Str='False' then
     begin
       Key:= 0;
  
positive.code:   FTypeString:= ATypeString;
    FTagString:= '';
    FCallback:= '';
  end;
  
  { TFormDummy }
  
negative.code:     procedure DoOnListviewChange(Sender: TObject; Item: TListItem; Change: TItemChange);
      procedure DoOnListviewSelect(Sender: TObject; Item: TListItem; Selected: Boolean);
      procedure DoOnTreeviewChange(Sender: TObject; Node: TTreeNode);
      function DoEvent(AIdControl: integer; const AEvent, AInfo: string;
        ASpecificForControl: boolean): string;
      procedure DoEmulatedModalShow;
      procedure DoEmulatedModalClose;
      function FindControlByOurName(const AName: string): TControl;
  