anchor.diff:      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);
       procedure DoOnFormWindowStateChange(Sender: TObject);
       procedure _HandleClickEvent(Sender: TObject; ADblClick: boolean);
       procedure _HandleMouseEvent(Sender: TObject;
  
positive.code: end;
  
  
  procedure TFormDummy.DoOnFormClose(Sender: TObject; var CloseAction: TCloseAction);
  begin
    CloseAction:= caHide; //caFree gives crash on btn clicks on win
    if IsDlgCustom then exit;
  
  
negative.code:   DoEvent(-1, FEventOnResize, AppVariantNil);
  end;
  
  function TFormDummy.CloseQuery: boolean;
  begin
    inherited;
    Result:= DoEvent(-1, FEventOnCloseQuery, AppVariantNil);
  end;
  
  procedure TFormDummy.DoOnFormWindowStateChange(Sender: TObject);
  