Something

  try
    if FileExists(pBDSProjFile) then
    begin
      XML.LoadFromFile(pBDSProjFile);
      if XML.Root.Items.ItemNamed['PropertyGroup'] <> nil then
      begin
        with XML.Root.Items.ItemNamed['PropertyGroup'].Items do
        begin
          FOutputDir := ItemNamed['DCC_ExeOutput'].Value;
          //FSearchPath := ItemNamed['DCC_IncludePath'].Value;
          //FPackages := ItemNamed['DCC_UsePackage'].Value;
          //FUsePackages := StrToBool(ItemNamed['DCC_EnabledPackages'].Value);
        end;
      end;
    end;
    finally
      XML.Free;
    end;