Bunos días,
Pues la manera más simple (aunque no tan eficiente) quizás sería utiliar un objeto TStringList con su respectivo método LoadFromFile y luego recorrer los items del objeto como si fueran filas, puesto que divide según encuentre CR.
El problema es el evidente: si en el archivo que generas escribís los famosos NULL CHARS vas a encontrarte con ciertos inconvenientes.
Espero que orientarte en algo, de última solamente chifla