anchor.diff:    DoOnChange(Sender);
   end;
   
  -function TFormDummy.DoEvent(AIdControl: integer; const AEvent, AInfo: string): string;
  +function TFormDummy.DoEvent(AIdControl: integer; const AEvent, AInfo: string; ASpecificForControl: boolean): string;
   var
     Params: array of string;
   begin
  
positive.code:   FTypeString:= ATypeString;
    FTagString:= '';
    FCallback:= '';
  end;
  
  { TFormDummy }
  
negative.code: var
    Str: string;
  begin
    Str:= DoEvent(Key, '"on_key_up"', '', false);
    if Str='False' then
    begin
      Key:= 0;
  