[ZayDun]

Hola, he estado buscando un metodo que me permita modificar parte de el contenido de un archivo de texto, y buscando por este foro encontre este codigo..

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]:= Copy(Strings[i],j,MAXINT);         
        inc(i);       
      end 
      else         
        Delete(i);     
    end;     
    SaveToFile('c:\resultado.txt');     
    showMessage ('Listo');   
  finally     
    Free;   
  end;
end;

El codigo como podeis ver copia el contenido que estas buscando "EMAIL", pero como podria hacer para que en vez de copiarlo se reemplaze por el contenido que tengo en un memo? estoy utilizando delphi 6.