No funciana mandar fichero txt a impresora con XE2

[engranaje]

¿Podrias aclararnos para poder ayudarte mejor si has trazado ese procedimiento y en que punto sale?
¿supera este paso sin problema?

Código Delphi [-]
if not WinSpool.OpenPrinter(@sDevice, hPrinter, nil) then
     exit;