anchor.diff:  
     TGoForm = class(TForm)
     private
  -    FAllowDropFiles: Boolean;
       FOnDropFiles: TDropFilesEvent;
       FOnStyleChanged: TNotifyEvent;
       FOnWndProc: TWndProcEvent;
  +    FAllowDropFiles: Boolean;
       procedure SetAllowDropFiles(const Value: Boolean);
       procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
       procedure CMStyleChanged(var Msg: TMessage); message CM_STYLECHANGED;
  +    function GetAllowDropFiles: Boolean;
     protected
       procedure InitializeNewForm; override;
     public
       constructor Create(AOwner: TComponent); override;
       procedure WndProc(var AMsg: TMessage); override;
     published
  -    property AllowDropFiles: Boolean read FAllowDropFiles write SetAllowDropFiles;
  +    property AllowDropFiles: Boolean read GetAllowDropFiles write SetAllowDropFiles;
       property OnDropFiles: TDropFilesEvent read FOnDropFiles write FOnDropFiles;
       property OnStyleChanged: TNotifyEvent read FOnStyleChanged write FOnStyleChanged;
       property OnWndProc: TWndProcEvent read FOnWndProc write FOnWndProc;
  
positive.code: procedure TGoForm.CMStyleChanged(var Msg: TMessage);
  begin
    inherited;
    if Assigned(FOnStyleChanged) then
      FOnStyleChanged(Self);
  end;
  
negative.code:   ControlStyle := ControlStyle + [csPaintBlackOpaqueOnGlass];
  end;
  
  function TGoForm.GetAllowDropFiles: Boolean;
  begin
    Result := (GetWindowLong(Handle, GWL_EXSTYLE) and WS_EX_ACCEPTFILES) <> 0;
  end;
  
  procedure TGoForm.InitializeNewForm;
  begin
    inherited InitializeNewForm;
  