apagar linha de um arquivo texto

[martinusso 0]

Possuo um arquivo Arquivo.txt com o seguinte conteudo001XXXXXXXXXX002XXXXXXXXXX003XXXXXXXXXX004XXXXXXXXXX005XXXXXXXXXXGostaria de apagar a linha que contem o string '002' nos tres primeiros caracteres.Existe essa possibilidade sem ter que jogar os dados para outro lugar???

[martinusso 0]

Consegui desenvolver algo aqui:

// Criar duas TStringList _Lista := TStringList.Create; _ListaAlterada := TStringList.Create; // Abrir o arquivo para uma lista _Lista.LoadFromFile(_NomeDoArquivo); // Adicionar os dados, já filtrados, para a listaAlterada For _i := 0 to _Lista.Count -1 do Begin If Not ( SubStr(_Lista.Strings[_i],1,3) = _Item ) Then _ListaAlterada.Add(_Lista.Strings[_i]); End; // Salvar o arquivo text com os dados da lista alterada _ListaAlterada.SaveToFile(_NomeDoArquivo); // Finalizar as duas listas FreeAndNil(_Lista); FreeAndNil(_ListaAlterada);

Mas caso alguem tenha uma ideia melhor poste aí para mim :)