anchor.diff:      property ZipFileName: string read FZipFileName write SetZipFileName;
       property ResourcePath: string read FResourcePath write SetResourcePath;
       property ResourceDll: string read FResourceDll write SetResourceDll;
  -  {$IFNDEF FPC}
       property OnMessage: TMessageEvent read FOnMessage write FOnMessage;
  -  {$ENDIF}
     end;
   
     /// <summary>
  
positive.code:     FNotifyUI: INotifyUI;
      FMessageFilterUI: IMessageFilterUI;
      FDialogBuilderCallback: IDialogBuilderCallback;
    {$IFDEF FPC}
      FNotifyVMT: PDWORD;
      FMessageFilterUIVMT: PDWORD;
      FDialogBuilderCallBackVMT: PDWORD;
    {$ENDIF}
      FNotifyPump: CNotifyPump;
      FObjectEvents: TDuiObjectEvents;
      FOnNotify: TDuiNotifyEvent;
  
negative.code:   FObjectEvents := TDuiObjectEvents.Create;
    if not IsDesigning then
    begin
      FPaintMgr := CPaintManagerUI.CppCreate;
      FNotifyPump := CNotifyPump.CppCreate;
      FHandle := FForm.Handle;
  