Pascal/Turbo Pascal - Detectar impresora

Hola a todos

Quiero preguntarles como hacer para detectar si la impresora esta conectada, cuando los controladores estan instalados no hay problema, porque es el programa de la impresora la que maneja los errores, el problema es cuando no hay ninguna impresora instalada.

intente con esto

{$I-}
write(lst,#27);
{$I+}
if ioresult <> 0 then
{mensaje}

Pero no hace nada, en algunas maquinas el programa se bloquea, en otras simplemente no hace nada el programa sigue ejecutandose pero no manda ningun error ni nada.

¿Algo que me este faltando?, Muchas gracias

Roberto

Prueba lo siguente:
var
P:Text;
begin
Assign(P,'LPT1');
{$i-}
reset(P);
{$I+}
if IOResult <> 0 then Writeln('La impresora no responde.');

Puedes usar PRN en vez de LPT1.

Gracias por el Tip