Try except virker ikke på comport

Hej,

Når jeg forsøger at skrive til en COM port, og comporten ikke findes på pc´en, så går programmet i stå og ender ikke nede i min finally sætning som den burde. Koden er som følger:
procedure TForm1.Button1Click(Sender: TObject);

var
f : Textfile;
begin
assignfile(f,'COM5');

try
rewrite(f);
writeln(f,'#13#10');
except
  showmessage('Ingen adgang til port');
end;
end;

Programmet går ind i writeln-sætningen og bliver hængende der !

Jeg skal skrive nogle tegn til et vare-displayen på et kasseapparat som er koblet til comporten og det hele virker meget fint, men hvis displayet er slukket så hænger mit program i writeln sætningen !

Er der nogen der har en god ide til at løse dette ?

mvh

PigBear