Prevenir error en la impresion y redireccionar

[lbidi]

Estimado foro.

He leido algunos post sobre como evitar los errores de impresion, pero no he logrado buenos resultados.

Mi idea es "testear" de alguna manera el puerto lpt1, y si no esta conectado o la impresora no responde, avisarle al usuario y preguntarle si quiere grabar un archivo de texto con la impresion.

He utilizado el siguiente codigo

Código Delphi [-]
    AssignFile( Printer, 'LPT1' );
    FileMode := fmOpenReadWrite;
    {$I-} Reset( Printer ); {$I+}
    Rewrite( Printer );

pero se cuelga el programa en el rewrite si tengo la impresora apagada.

Cual seria la mejor manera para evitar este problema ??

Gracias a todos.

Saludos