Leer varios archivos de texto y extraer solo 2 lineas de ese texto

[mp3968]

hola , necesito Leer varios archivos de texto y extraer solo 2 lineas de ese texto para guardarlos en otro archivo ese texto que extrai del original , me gustaria que se fuera agregando al archivo generado cada vez que leo un archivo.

habia empezado con esto pero estoy un poco confundido

afichero : string ;
t: TStrings;
begin
t := TStringList.Create;
{...}
aFichero := TStrings.Create;
aFichero.LoadFromFile('c:\StarBurn.log');
Edit1.Text := aFichero.Strings[19];
end;

estoy trabajando con delphi 6 , muchas gracias por su ayuda