delphi 2009 no imprime directo al puerto

[martita]

hola foro, tengo un problema con delphi 2009
no funciona la impresion directa al puerto
lo curioso de esto es que el mismo codigo compilado
en delphi 7 si imprime correctamente, y en delphi 2009
solo sale la hoja en blanco, alguien sabe como esta
esto ? alguien le ha pasado algo como esto ?
mi codigo es.

AssignFILE(impresora,'USB');
ReWrite(impresora);
printer.BeginDoc;
Writeln(impresora, ' Hola Mundo');
printer.EndDoc;
System.CloseFile(impresora);