anchor.diff:      FActive: boolean;
       FTagString: string;
       FCallback: string;
  +    FEvents: string;
       constructor Create(const ATypeString: string);
     end;
   
  
positive.code:       '"on_change"' //id_event
      ])
    else
      DoEvent(IdClicked, '"on_change"', '');
  end;
  
  procedure TFormDummy.DoOnSelChange(Sender: TObject; User: boolean);
  
negative.code: var
    Str: string;
  begin
    Str:= DoEvent(Key, '"on_key_up"', '', false);
    if Str='False' then
    begin
      Key:= 0;
  