Hola:
Si usas el método LoadFromFile de un objeto TStrings, esos caracteres últimos "despistan" y no se puede leer el archivo. Prueba con este código. En el parámetro Lista puedes pasar la propiedad Lines de un Memo, por ejemplo, para ver el resultado.
Código:
procedure LeeArchivo (NomFile: String; Lista: TStrings);
var
ArchText : TextFile;
s : String;
begin
Lista.Clear;
AssignFile (ArchText, NomFile);
Reset (ArchText);
while NOT EOF(ArchText) do
begin
ReadLn (ArchText, s); // leemos una linea
s := TrimRight(s); // eliminamos espacios y caracteres de control a la derecha
Lista.Add (s); // la añadimos a la lista
end;
CloseFile (ArchText);
end;
Un Saludo