Programa para reescribir un archivo

[Yusk333]

ok muchas gracias ,,, me parece exelente ,, entonces el codigo ya terminado quedaria asi le podrian echar un vistaso....

procedure TForm1.Button1Click(Sender: TObject);
var
txt: textFile;
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);

var IE: Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := True;
IE.Navigate('http://www.marca.com');

end;

osea que escriba en el archivo las lineas y abra el explorador ,, y una pregunta mas ,, es que si ese compilador que dije me sirve para compilar ese source