Una de las posibles formas:
Código:
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);