try
    if FileExists(pBDSProjFile) then
    begin
      XML.LoadFromFile(pBDSProjFile);
      for n := 0 to XML.Root.Items.Count - 1 do
        if XML.Root.Items.Item[n].Name = 'PropertyGroup' then
        begin
          for i := 0 to XML.Root.Items.Item[n].Items.Count - 1 do
          begin
            with XML.Root.Items.Item[n].Items.Item[i] do
            begin
              if Name = 'DCC_ExeOutput' then FOutputDir := Value;
              if Name = 'DCC_IncludePath' then FSearchPath := Value;
              if Name = 'DCC_EnabledPackages' then FUsePackages := StrToBool(Value);
              if Name = 'DCC_UsePackage' then FPackages := Value;
            end;
          end;
        end;
    end;
    finally
      XML.Free;
    end;