Hola.
Cambia la línea del COPY por lo que necesites.
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
begin
with TStringList.Create do
try
LoadFromFile('c:\visitasweb.txt');
i:= 0;
while i < Count do
begin
j:= Pos('EMAIL',Uppercase(Strings[i]));
if j > 0 then
begin
Strings[i]:= Memo1.Lines.Text;
inc(i);
end
else
Delete(i);
end;
SaveToFile('c:\resultado.txt');
showMessage ('Listo');
finally
Free;
end;
end;