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;

[roman]

¿No te serviría mejor leer todo el archivo en TSttringList para poder moverte a tu gusto por él?

// Saludos

[JELIRM]

gracias roman por tu pronta respuesta; pero fijate que siempre los he leido de la forma que te explique por lo tanto desconozco como usar esa clase.
me podrias decir como hago???

[roman]

Código Delphi [-]
var
  Archivo: TStringList;

begin
  Archivo := TStringList.Create;

  try
    Archivo.LoadFromFile('archivo.txt');

    {
      Aquí puedes acceder a las líneas del archivo por índice:

        Archivo[0], Archivo[1], Archivo[2], Archivo[3], etc.

    }
  finally
    Archivo.Free;
  end;
end;

Este método puede no ser adecuado si tus archivos son muy grandes, pero puedes intentarlo a ver como te funciona.

// Saludos

[JELIRM]

Gracias de nuevo;
pues fijate que si son bastante grandes los archivos anda aproximadamente 10MB y por 15,000 registros y esto es variable puede ser mas grande..
Tambien tengo una duda con respecto a las lineas, me dices que las manejo por indice; pero si desconozco la linea en que mi condicion se cumple para regresar a la anterior debo de conocerla.
como hago entonces???