Avance de Carro y retroceso en Archivo Plano

[JELIRM]

Hola,
Tengo un archivo de Texto plano el cual lo leo secuencialmente; pero en determinado momento llego a un registro el cual me cumple cierta condicion y si se cumple quiero que el cusor avance a la siguiente linea o retroceda.

el codigo que tengo es el siguiente:

Código Delphi [-]
 While not Eof(Archivo) do
 begin
   Readln(Archivo,Texto);.
   Tc:=copy(Texto,1,2);
   if {condicion}
     // si se cumple avance carro
   else
     // retroceda carro
   end;
 end;