anchor.diff:  
   var
     SwitchFunc: TSwitchFunc = nil;
  -  hLib: HInst;
     OneWinInstance: TUniqueWinInstance;
   
   function IsSetToOneInstance: boolean;
  
positive.code:     _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;
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
      function IsAnotherInstance: boolean;
  
negative.code:   begin
  
      OneWinInstance := TUniqueWinInstance.Create(nil);
      OneWinInstance.Id := 'cudatext.1';
      OneWinInstance.UniqueInstanceId := GetServerId('cudatext.0');
      OneWinInstance.TargetId := 'cudatext.2';
      Result := OneWinInstance.IsAnotherInstance;
  
      OneWinInstance.Free;
    end;
  
  end;
  
  var
    hLib: HINST;
  
  initialization
    hLib := LoadLibrary('user32.dll');
    Pointer(SwitchFunc) := GetProcAddress(hLib, 'SwitchToThisWindow');
  
  finalization
    if hLib <> 0 then
       FreeLibrary(hLib);
  
  {$else}
  procedure DoFocusWindow(h: THandle);
  