In eine Datei was schreiben, wie?

[ferby]

Hallo,

ich habe in meinen Delphi Buch folgendes stehen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  textvar:textfile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  assignfile(textvar, 'test.txt');
  reset(textvar);
  write(textvar, 'test');
  closefile(textvar);
end;

end.

Die Datei test.txt befindet sich im selben order. Der Inhalt von test.txt wird zwar gelöscht aber es wird nichts hineingeschrieben, was ist hier falsch?

Danke