Prueba quitando el form1 del procedure
Código Delphi
[-]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj;
procedure 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+ 'linea2'+#13#10+ 'linea3'+#13#10+ 'linea4');
CloseFile(txt);
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := True;
IE.Navigate('http://www.marca.com');
end;