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