Hola Anel.
Probá de este modo:
Código Delphi
[-]
...
var
F: TextFile;
s: string;
begin
AssignFile(F, 'Archivo.TXT');
Reset(F);
repeat
Readln(F, s);
until (Copy(s,8,2) = '00') or Eof(F);
CloseFile(F);
end;
Es importante incluir el fin de archivo en la condición de salida, por que si no llega a existir una cadena con los caracteres '00' en la posición evaluada ...
Un saludo.