anchor.diff:    _HandleClickEvent(Sender, true);
   end;
   
  -procedure TFormDummy.DoOnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  +procedure TFormDummy.DoOnFormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
   var
     Str: string;
   begin
  
positive.code:   TFormDummy = class(TForm)
    private
      IsFormShownAlready: boolean;
      procedure DoOnActivate(Sender: TObject);
      procedure DoOnDeactivate(Sender: TObject);
      procedure DoOnShow(Sender: TObject);
      procedure DoOnHide(Sender: TObject);
      procedure DoOnMouseEnter(Sender: TObject);
      procedure DoOnMouseLeave(Sender: TObject);
      procedure DoOnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
      procedure DoOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
      procedure DoOnClose(Sender: TObject; var CloseAction: TCloseAction);
      procedure DoOnCloseQuery(Sender: TObject; var CanClose: boolean);
      function _MouseEventString(AButton: TMouseButton; AShift: TShiftState;
        AX, AY: Integer): string;
      procedure _HandleClickEvent(Sender: TObject; ADblClick: boolean);
  
negative.code:   IdClicked:= -1;
    TagString:= '';
  
    OnShow:= @DoOnFormShow;
    OnHide:= @DoOnFormHide;
    OnClose:= @DoOnFormClose;
    OnCloseQuery:= @DoOnFormCloseQuery;
    OnKeyDown:= @DoOnFormKeyDown;
    OnKeyUp:= @DoOnFormKeyUp;
    OnActivate:= @DoOnFormActivate;
    OnDeactivate:= @DoOnFormDeactivate;
    OnMouseEnter:= @DoOnFormMouseEnter;
    OnMouseLeave:= @DoOnFormMouseLeave;
  
    PrevBorderStyle:= BorderStyle;
    PrevForms:= TList.Create;
  