[Taras2020]

В данном коде при обработке файла в 100 мегабайт выскакивает ошибка: out of memory. Как переделать этот код что бы не было ошибки - недостаточно памяти ?

Код:

var
list: TStrings;
 i:integer;
str:string;
begin
list :=TStringList.Create;
list.LoadFromFile(OpenDialog1.FileName);
for i :=list.count-1 downto 0 do
 begin
str :=list.Strings[i];
while Pos(edit1.text, str) >0 do
 begin
Delete(str, Pos(edit1.text, str), Length(edit1.text)) ;
list.Strings[i] :=str;
  end;
  end;
  list.SaveToFile('out.txt');
  list.free;
  end;