Tal vez la forma más fácil de leer un archivo en una cadena sea usando el método LoadFromFile de un objeto TStringList y luego accediendo a su propiedad Text
