if realD = nil then exit;
        try
          TMonitor.Enter(realD, TIME_OUT_CS);
          TRY
            try
              if realD.ContainsKey(Dkey) then
              begin
                realD.remove(Dkey);
                isKeyFound := True;
              end
              else
                isKeyFound := false;
              realD.Add(Dkey, Value);
            except
              on E: exception do err := E.Message;
            end;
          FINALLY
            TMonitor.Exit(realD);
          END;