Hola,
Se me ocurre algo que puede ser una estupidez, pero, ¿probaste a terminar las cadenas que envías con un retorno de carro? Se trataría con ello de indicar el final de una cadena a la impresora. Es decir, se trataría de probar a ver utilizando el mismo método "Enviar" de este modo:
Código Delphi
[-]
hasar1.Enviar(chr(93)+chr(28)+'3'+chr(28)+'Vendedor: Pablo'+#13#10);
No sé... lo mismo suena la flauta y todo.
PD. Podrías probar con "#13#10", sólo con "#13", etc.