Estoy seguro que el problema no está en el archivo o en delphi. Si no hay un salto de línea antes del fin de archivo no pasa nada. Veo que lees una línea antes de entrar al while que sugeris, que tampoco tiene sentido (aunque no creo que sea el origen del error, por supuesto) y que de hecho podria ocasionar errores, ya que el archivo podria existir y estar vacio.
Solo para que lo revises, la construcción debiera ser algo como:
Código:
if FileExists(NombreArchivo) Then
Begin
AssignFile(f, NombreArchivo);
Reset(f);
try
while not eof(f) do
Begin
Readln(f, s);
ProcesarLaCadena(s);
End;
finally
Close(f); // Importante: aunque hayan errores, siempre liberará los recursos
end;
End;
Hasta luego.
