Format number to string for commas

[Mortipherius]

DotFormatNumber(NumberToFormat : int) : string =
    ConvertedString := ToString(NumberToFormat)
    var ReturnString : string = ""
    for(Index := 0..ConvertedString.Length-1):
        if(Mod[ConvertedString.Length - Index, 3] = 0 and Index<> 0):
            set ReturnString = ReturnString + ","
        if(Char:=ConvertedString[Index]):
            set ReturnString = ReturnString + ToString(Char)

    return ReturnString