anchor.diff:      FUpdateInterval: Cardinal;
       FEnabled: Boolean;
       FPriorInstanceRunning: Boolean;
  +    {$ifdef PollIPCMessage}
  +    Timer: TTimer;
  +    {$endif}
       procedure ReceiveMessage(Sender: TObject);
       {$ifdef PollIPCMessage}
       procedure CheckMessage(Sender: TObject);
       {$endif}
     public
       constructor Create(AOwner: TComponent); override;
  +    destructor Destroy; override;
       property PriorInstanceRunning: Boolean read FPriorInstanceRunning;
       procedure Loaded(const AParams: array of string); reintroduce; //Alexey
     published
  
positive.code:   FUpdateInterval := 1000;
  end;
  
  end.
  
  
negative.code: procedure TUniqueInstance.Loaded(const AParams: array of string);
  var
    IPCClient: TSimpleIPCClient;
  begin
    if not (csDesigning in ComponentState) and FEnabled then
    begin
  