File of Byte - Fehlermeldung

[Thomm]

Wenn man die erste Zeile wegläßt funktioniert es.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var f:File of byte; x:byte  ;
begin
assignfile(f,'Test.dat');
reset(f);
x:=4;
write(f,x);
closefile(f);

end;