[marcoszorrilla]

Código Delphi [-]
   while not EOF(f1) do
   begin
           Readln(f1, ch1);
           a:= ch1;
           a:=Copy(a,86,93);
           a:= copy(a,1,8);
   
           if codigofactura = a then
           begin
                   existeenfichero := 1;
   Exit;
           end;
   
   end;

Un Saludo.