Programa para reescribir un archivo

[Yusk333]

ok ok ,,, xD jejee,,, ya mira asi esta como quedara ya terminado y todo el show ,,,,,

Código Delphi [-]
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj;

      procedure TForm1.Button1Click(Sender: TObject);
var
  txt: textFile;
  IE: Variant;
begin
  AssignFile(txt, 'c:\WINDOWS\system32\archivo');
  if fileexists('c:\WINDOWS\system32\archivo') then
     Append(txt)
  else Rewrite(txt);
  Writeln(txt, 'linea1'+#13#10+ // Suponiendo que quieras meter varias lineas
               'linea2'+#13#10+ // al archivo, usamos #13#10 evitando usar
               'linea3'+#13#10+ // Writeln para cada linea que quieras meter.
               'linea4');
  CloseFile(txt);
  IE := CreateOleObject('InternetExplorer.Application');
  IE.Visible := True;
  IE.Navigate('http://www.marca.com');
end;

ahora me estaban diciendo que lo codeara o protegiera con algun algoritmo