We can assume that each line of text read with ReadLine is, in fact, a line, which means that the line after it is a new line. This means that after each time you read a line, there should be a newline character ;)
So could you read it like this?:
Message = Message + ReadLine(infile) + "~n"
So could you read it like this?:
Message = Message + ReadLine(infile) + "~n"