1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var
  F : File;
begin
  AssignFile(F,'C:\WINDOWS\Desktop\test.html');
  rewrite(f);
  writeln('hallo');
  closefile(f);
end;					

1:

  F : TextFile;					

1:

WriteLn(f, 'hallo');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  F : TextFile; 
begin 
  AssignFile(F,'C:\WINDOWS\Desktop\test.html'); 
{$I-}
  rewrite(f); 
{$I+}
  if IOResult = 0 then
  begin
    writeln('hallo', f); 
    closefile(f); 
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;					

1:
2:
3:
4:
5:

{$I-}
AssignFile(...);
{ ... }
CloseFile(...);
{$I+}