При удалении всех строк где есть слово "Del" сообщение об ошибке: List index out of bounds (2)
var
L, K: TStringList;
i: integer;
begin
L := TStringList.Create;
L.LoadFromFile(ExtractFilePath(Application.ExeName) + 'f.txt');
for i := 0 to L.Count - 1 do
begin
if pos('Del', L.Strings[i]) > 0 then
L.delete(i);
L.SaveToFile(ExtractFilePath(Application.ExeName) + 'f.txt');
end;
L.Free;
end;