Foros Club Delphi - escribir en lpt1 colgado

Hola!
estoy haciendo una tontería para imprimir directamente al lpt1.

Código:

 

var

  Impresora: TextFile;

begin

  AssignFILE(Impresora,'LPT1');

  {$I-}

  ReWrite(Impresora);

  {$I+}

  if IOResult <> 0 then  

    showmessage('error')

  else

    writeln(Impresora,'');

  CloseFile(Impresora);

El código funciona bien, pero si por cualquier motivo tengo la impresora apagada, el programa se me queda colgado en la instrucción writeln. ¿Alguien sabe como evitar esto? ¿Hay algún modo de saber si la impresora está encendida y sin problemas (no le falta papel...)?
Muchas gracias!
Jon