(**
   * Yep, you guessed it. More code from the infamous ex-coworker.
   *)
 
  // -------------------------------------------------------
  // Display list of paramters that have been used in the program
  // -------------------------------------------------------
  Procedure CreateParamsinXMLFile;
  begin
    Writeln(XMLFile,'<Parameters>');
 
     Writeln(XMLFile,Format('<Param1>%s</Param1>',[Paramstr(1)]));
      Writeln(XMLFile,Format('<Param2>%s</Param2>',[Paramstr(2)]));
       Writeln(XMLFile,Format('<Param3>%s</Param3>',[Paramstr(3)]));
        Writeln(XMLFile,Format('<Param4>%s</Param4>',[Paramstr(4)]));
         Writeln(XMLFile,Format('<Param5>%s</Param5>',[Paramstr(5)]));
          Writeln(XMLFile,Format('<Param6>%s</Param6>',[Paramstr(6)]));
           Writeln(XMLFile,Format('<Param7>%s</Param7>',[Paramstr(7)]));
            Writeln(XMLFile,Format('<Param8>%s</Param8>',[Paramstr(8)]));
             Writeln(XMLFile,Format('<Param9>%s</Param9>',[Paramstr(9)]));
              Writeln(XMLFile,Format('<Param10>%s</Param10>',[Paramstr(10)]));
               Writeln(XMLFile,Format('<Param11>%s</Param11>',[Paramstr(11)]));
                Writeln(XMLFile,Format('<Param12>%s</Param12>',[Paramstr(12)]));
                 Writeln(XMLFile,Format('<Param13>%s</Param13>',[Paramstr(13)]));
                  Writeln(XMLFile,Format('<Param14>%s</Param14>',[Paramstr(14)]));
                   Writeln(XMLFile,Format('<Param15>%s</Param15>',[Paramstr(15)]));
 
     if Stage <> 1 then Writeln(XMLFile,Format('<Param16>%s</Param16>',[Paramstr(16)]));
 
     if (Stage <> 1) and (Stage <> 2) then
     begin
       Writeln(XMLFile,Format('<Param17>%s</Param17>',[Paramstr(17)]));
       Writeln(XMLFile,Format('<Param18>%s</Param18>',[Paramstr(18)]));
     end;
 
     Writeln(XMLFile,'</Parameters>');
  end;