Secuencia de Escape en Epson TM88III

[Nose]

Hola a todos!

Estoy de nuevo por acá, con otro nick eso sí.

Remitiendome al problema descargué de la page de la epson el faq de las secuencias de escapes de la Epson TM88III y tengo problemas para entender algunas especificaciones de él y ademas de adaptar el código que esta en basic:

PRINT #1, CHR$(&H1B);"@"; 'Initializes the printer (ESC @)
PRINT #1, CHR$(&H1B);"a";CHR$(1);'Specifies a centered printing position 
                                                 '(ESC a)
PRINT #1, CHR$(&H1B);"!";CHR$(0); 'Specifies font A (ESC !)
PRINT #1, "January 14, 2002 15:00";
PRINT #1, CHR$(&H1B);"d";CHR$(3); 'Prints and 3 line feeding (ESC d)
PRINT #1, CHR$(&H1B);"a";CHR$(0); 'Selects the left print position (ESC a)
PRINT #1, CHR$(&H1B);"!";CHR$(1); 'Selects font B
PRINT #1, "TM-U210B $20.00";CHR$(&HA);
PRINT #1, "TM-U210D $21.00";CHR$(&HA);
PRINT #1, "PS-170 $17.00";CHR$(&HA);
PRINT #1, CHR$(&HA); 'Line feeding (LF)
PRINT #1, CHR$(&H1B);"!";CHR$(17); 'Selects double-height mode
PRINT #1, "TOTAL $58.00"; CHR$(&HA);
PRINT #1, CHR$(&H1B);"!";CHR$(0); 'Cancels double-height mode
PRINT #1, "------------------------------";CHR$(&HA);
PRINT #1, "PAID $60.00";CHR$(&HA);
PRINT #1, "CHANGE $ 2.00";CHR$(&HA);
PRINT #1, CHR$(&H1D);"V";CHR$(66);CHR$(0); 'Feeds paper & cut
?Drawer Kick (ESC p)
PRINT #1, CHR$(&H1B); CHR$(&H70); CHR$(&H0); CHR$(60); CHR$(120);

Esta instrucción, por ejemplo :

 PRINT #1, CHR$(&H1B);"a";CHR$(1);

¿cómo puedo convertirla en Delphi?

Esto no me resulta:

PRINT #1, CHR$(&H1B);"a";CHR$(1);
PRINT #1, CHR$(&H1B);"!";CHR$(0); 'Specifies font A (ESC !)
PRINT #1, "January 14, 2002 15:00";

lo convertí en:

Writeln ( f, #27 + 'a' + #49 );  
Writeln (f, #27 + '!' + #48 );
Writeln (f, "January 14, 2002 15:00" );

Supuestamente lo que hace es centrar lo que se va escribir después, pero no resulta, simplemente aparece justificado a la izquierda

Después, intento convertir:

PRINT #1, CHR$(&H1B);"d";CHR$(3);

Esto imprime 3 saltos de líneas (ESC d), supuestamente, pero no lo hace

 Writeln ( f, #27 + 'd' + #50);

Alguién puede ayudarme a convertirlo a Delphi todo este código, además de la secuencia de escape para imprimir código de barra que en el manual sale así, pero no se cómo interpretarlo:

? GS k m d1...dk NUL
? GS k m n d1...dn
[Name] Print bar code
[Format] ASCII ?GS k m d1...dk NUL
Hex ?1D 6B m d1...dk 00
Decimal ?29 107 m d1...dk 0
ASCII ?GS k m n d1...dn
Hex ?1D 6B m n d1...dn
Decimal ?29 107 m n d1...dn
[Range] ? 0 ? m ? 6 (k and d depend on the bar code system used)
? 65 ? m ? 73 (n and d depend on the bar code system used)
[Description] Selects a bar code system and prints the bar code.

Para el Codebar39 "m" = 4 el rango de "k" es 1<=k y el rango de "d" es 48 ? d ? 57,65 ? d ? 90, d = 32,36,37,43,45,46,47

Así que debería ser algo así :

Writeln ( f, #29 + #107 + '4' + '12345678' );

Pero, para variar no me resulta.

si alguien se apiade y me expliqué lo que estoy haciendo mal.

Gracias