Estoy tratando de enviar comandos directamente a una impresora Zebra TLP2844. Seguí la sugerencia hechaaquí y mi código final llegó a ser el siguiente:

var
  cm: String;
  p: TPrinter;
  i: integer;
begin
  p := Printer;
  p.BeginDoc;    
  for i := 0 to memo1.Lines.Count-2 do
  begin
    cm := memo1.Lines[i];
    if Escape(p.Canvas.Handle,
                PASSTHROUGH,
                Length(cm),
                PAnsiChar(cm),
                nil) = 0 then
      ShowMessage('Command error: ' + IntToStr(GetLastError));
  end;
  p.EndDoc;
end;

El contenido de memo1 es (la primera línea está vacía) como se propusoaquí:

N
q609
Q203,26
B26,26,0,UA0,2,2,152,B,"603679025109"
A253,26,0,3,1,1,N,"SKU 6205518 MFG 6354"
A253,56,0,3,1,1,N,"2XIST TROPICAL BEACH"
A253,86,0,3,1,1,N,"STRIPE SQUARE CUT TRUNK"
A253,116,0,3,1,1,N,"BRICK"
A253,146,0,3,1,1,N,"X-LARGE"
P1,1

Los comandos no parecen ser recibidos o interpretados correctamente por la impresora. Verifiqué que la impresora esté en Modo de página (EPL2), con el código sugerido que puedo abrir el asa de la impresora. Pero no se imprime nada, solo se alimenta una nueva línea de etiquetas.

Intenté cambiar completamente los comandos a algo obviamente mal y el comportamiento es el mismo.

¿Qué más debo buscar para imprimir cosas?