Delphi - BORRAR LINEA POR LINEA DE TXT DESDE DELPHI

Saludos

Tengo un archivo de texto , con "N" lineas , lo que hago es leer linea por linea desde una aplicacion en delphi pero el proceso es muy lento , asi que lo que quieros hacer es que AL MOMENTO DE LEER UNA LINEA , AL MOMENTO DE TERMINAR LA BORRE y asi sucesivamente
¿¿¿ COMO LE HAGO , que funcion uso????

RECUERDEN BORRAR LINEA POR LINEA no todo el archivo al mismo tiempo.

gracias

si en lugar de borrar linea por linea simplemente hago un FLUSH al BUFFER??? es que el objetivo de borrar las lineas es que quiero hacer mas rapido el proceso de lectura del archivo ya que son grandes cantidades de datos!!!

COMO IMPLEMENTO EL FLUSH???

Lo que se me ocurre para resolver tu problema es crear un objeto de la clase TStringList:

var
miArch: TStringList;
...
miArch:= TStringList.Create;
...

Cargamos el archivo de texto:

miArch.LoadFromFile ('texto.txt');

De esa manera, tenes el archivo dentro del objeto y podes manipularrlo como quieras. Para borrar una linea tenes que usar el siguiente método:

miArch.Delete (5);

No te olvides de grabar los cambios en el archivo con:

miArch.SaveToFile('texto.txt');

ESPERO TE SIRVA...

El StringList tiene los metodos beginupdate y endupdate para agilizar el proceso..