anchor.diff:      _ServerId: String;
       _UniqueInstanceId: String;
       procedure ReceivedMessage(Sender: TObject);
  -  protected
  -    procedure SetServerId(Id: String);
  -    procedure SetTargetId(Id: String);
  -    procedure SetWndHandle(Wnd: HWND);
  -    procedure SetUniqueInstanceId(Id: String);
     public
  -    property WindowHandle: HWND write SetWndHandle;
  -    property TargetId: String write SetTargetId;
  -    property Id: String write SetServerId;
  -    property UniqueInstanceId: String write SetUniqueInstanceId;
  +    property WindowHandle: HWND write _WindowHandle;
  +    property TargetId: String write _TalkWith;
  +    property Id: String write _ServerId;
  +    property UniqueInstanceId: String write _UniqueInstanceId;
       constructor Create(AOwner: TComponent); override;
       destructor Destroy; override;
       function IsAnotherInstance: boolean;
  
positive.code:   begin
  
      OneWinInstance := TUniqueWinInstance.Create(nil);
      OneWinInstance.SetServerId('cudatext.1');
      OneWinInstance.SetUniqueInstanceId(GetServerId('cudatext.0'));
      OneWinInstance.SetTargetId('cudatext.2');
      Result := OneWinInstance.IsAnotherInstance;
  
      OneWinInstance.Free;
    end;
  
  end;
  
  {$else}
  procedure DoFocusWindow(h: THandle);
  
negative.code:       Client.Active := True;
        Client.SendStringMessage(ParamCount, GetFormattedParams);
      end;
  
      Sleep(10);
      if Assigned(SwitchFunc) then
      begin
        {$ifdef CPU64}
         SwitchFunc(StrToQWord(CudaWnd), True);
        {$else}
         SwitchFunc(StrToInt(CudaWnd), True);
        {$ifend}
      end;
      Client.Free;
    end;
  end;
  
  constructor TUniqueWinInstance.Create(AOwner: TComponent);
  