Imprimir directo al puerto paralelo.

[obiwuan]

Una de las posibles formas:

uses printer;
.......
write(lst, chr(27) + 'A');
write(lst, #27 + 'A3H400V0001');
......

Hay otras posibles formas para hacer esto mismo.

NOTA: Según las versiones de Delphi, la unidad printer está o no definida, en cuyo caso hay que modificar el uses por un trozo de código tal que así:

assign(lst, 'prn');
rewrite(lst);