anchor.diff:    FUpdateInterval := 1000;
   end;
   
  +destructor TUniqueInstance.Destroy;
  +begin
  +  if Assigned(Timer) then
  +  begin
  +    Timer.Enabled := False;
  +    Timer.OnTimer := nil;
  +    FreeAndNil(Timer);
  +  end;
  +  inherited Destroy;
  +end;
  +
   end.
   
  
positive.code: procedure TUniqueInstance.Loaded(const AParams: array of string);
  var
    IPCClient: TSimpleIPCClient;
    {$ifdef PollIPCMessage}
    Timer: TTimer;
    {$endif}
  begin
    if not (csDesigning in ComponentState) and FEnabled then
    begin
  
negative.code:     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
  