Ler arquivo txt, deletar linha e salvar arq. com outro nome

Olá.
vc pode fazer o seguinte:

Var Lista:TStringList;
i:Integer;
Begin
Lista:=TStringList.Create;
Lista.LoadFromFile(´seuarquivotexto´);

For i:=1 to Lista.Count -1 downto 0 do begin
if Lista[i]=´18´ then Lista.Delete(i);
End;
Lista.SaveToFile(´novoarquivo´);
Lista.Free;

End;

é uma ideia, vc pode incrementar...

usando a ideia do Prates:

Var Lista, Lista1:TStringList;
i,x:Integer;
Begin
Lista:=TStringList.Create;
Lista1:=TStringList.Create;
Lista.LoadFromFile(´seuarquivotexto´);
x:=0;

For i:=1 to Lista.Count -1 downto 0 do begin
begin
if pos(´ 18 ´,Lista[i]) > 0 then Continue;

Lista1[x] := Lista[i];
inc(x)
end;
End;
Lista1.SaveToFile(´novoarquivo´);
Lista.Free;
Lista1.Free;
End;

é outra ideia, vc pode incrementar...
_________________
By, Cicero