Как быстро работать с большими текстовыми файлами?

uses
  System.IO, 
  System.Collections.Generic;
 
const
  in_file = 'd:\test\com_ax.txt';
  out_file = 'd:\test\com_ax_out.txt';
  start_str = 'v'; // тут подставил что тебе нужно, я искал по другому началу строки
 
begin
  var s := &File.ReadAllLines(in_file);
  var L: List<string> := new List<string>(s);
  var Res: List<string> := new List<string>;
  
  foreach sub: string in L do
    if sub.StartsWith(start_str) then Res.Add(sub);
  &File.WriteAllLines(out_file, Res.ToArray());
end.

unit Import;
procedure imported(in1,ex:string);
var
v:array of string;
vi,i:integer;
 vs,rs,fs:String;
  rf,exx:textfile;
begin
assign(rf,in1);
reset(rf);
assign(exx,ex);
rewrite(exx);
repeat
readln(rf,rs);
if rs.StartsWith('v ') then
begin
vi:=vi+1;
SetLength(v,vi);
v[i]:=rs;
i+=1;
end;
until eof(rf);
foreach fs in v do
begin
Delete(fs,2,1);//тут я удалил пробелы  с снужных мест
writeln(exx,fs);
end;
close(exx);
close(rf);
end;
begin
end.