Programa para reescribir un archivo

[Yusk333]

ok muchas gracias entonces mi code para sobre escribir y abrir el explorador quedaria asi , pero mi pregunta es ,,,, si no existe el archivo ,,, lo podria crear o marcaria un error ,

procedure TForm1.Button1Click(Sender: TObject);
var txt: txtFile;
begin
AssignFile(txt, 'c:\WINDOWS\system32\archivo');
Append(txt);
WriteLn(txt, 'lineas
lineas
lineas
lineas ');
CloseFile(txt);

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

ya nadamas quedaria compilarlo en delphi 7 ,, o alguno de ellos