Unnamed

    try
    if FileExists(pBDSProjFile) then
    begin
      XML.LoadFromFile(pBDSProjFile);
      with XML.Root.Items do
      begin
        for n := 0 to Count - 1 do
          if Item[n].Name = 'PropertyGroup' then
          begin
            s := Item[n].Properties.Value('Condition', 'no');
            if s = 'no' then
            begin
              FUsePackages := Item[n].Items.BoolValue('DCC_EnabledPackages', False);
              FPackages := Item[n].Items.Value('DCC_UsePackage', '');
            end
            else if Pos('Release', s) > 0 then
            begin
              FSearchPath := Item[n].Items.Value('DCC_IncludePath', '');
              FOutputDir := Item[n].Items.Value('DCC_ExeOutput', '');
            end
            else if Pos('Debug', s) > 0 then
            begin
              FDebugSearchPath := Item[n].Items.Value('DCC_IncludePath', '');
              FDebugOutputDir := Item[n].Items.Value('DCC_ExeOutput', '');
            end;
          end;
      end;
    end;
    finally
      XML.Free;
    end;