Exception bei writeln

[Thomas F]

Wieso funktioniert der folgende Code nicht ?
Erst wenn ich das Programm zum zweiten Mal starte und die Datei 'Test.txt' schon existiert,
gibt es keine Exception !
Wenn ich die Datei 'Test.txt' lösche und das Programm starte kommt diese
Meldung: Exception .......'E/A-Fehler 32'

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var f:Textfile;
begin
assignfile(f,'Test.txt');
rewrite(f);
writeln(f,'blablabla');
closefile(f);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not fileexists ('Test.txt') then

filecreate('Test.txt');
end;