Exception

Jeg ønsker at fange en exception, hvis der angives et forkert filnavn.

procedure TForm1.Button2Click(Sender: TObject);
var
fil: TextFile;
filnavn: string;
begin
filnavn := 'cc:\test.txt'; //forkert filnavn (test)

  try
    AssignFile(Fil, filnavn);
    writeLn(Fil);
    CloseFile(Fil);
  except
    on E: EInOutError do
      Exception.Create('Skal være et gyldigt filnavn');
  end;

end;


Men min exception bliver aldrig udført, fordi der bliver kastet en "I/O error 103"

Hvor går det galt?