Haya otra posibilidad, y es cargar el archivo en un TStringList. Cuando haces un LoadFromFile interpreta cada retorno de carro como un cambio de elemento, y luego puedes recorrerlo de esta forma:
Código Delphi
[-]
MiStringList.LoadFromFile('BueCont_TXT.txt');
for i := o to MiStringList.Count - 1 do
begin
slínea := MiStringList[i];
for i:= 1 to Length(sLinea) do
begin
....
end;
Un saludo