anchor.diff:    end;
   end;
   
  -procedure TFormDummy.DoOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  +procedure TFormDummy.DoOnFormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
   var
     Str: string;
   begin
  
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:   DoEvent(-1, FEventOnResize, '');
  end;
  
  procedure TFormDummy.DoOnFormCloseQuery(Sender: TObject; var CanClose: boolean);
  var
    Str: string;
  begin
  