Segun creo, lo que tienes que mandar a la impresora son los caracteres #27#112#0#5#20, siendo el #112 = 'p'. Esto no seria un problema, lo malo es si necesitas introducir los comandos en un edit, en otro hilo dí la siguiente solución al problema, espero que te sirva:
Código Delphi
[-]
function Decode(Str: string): string;
var
i: integer;
begin
Result:= '';
while Length(Str) > 0 do
begin
if Copy(Str, 1, 1) = '%' then
begin
if not TryStrToInt('$' + Copy(Str, 2, 2),i) then
begin
Result:= '';
Exit;
end;
Result:= Result + Char(i);
Delete(Str, 1, 2);
end else Result:= Result + Copy(Str, 1, 1);
Delete(Str,1,1);
end;
end;
LineaTexto = '%1Bp%00%05%14
Writeln ( Fichero,Decode(LineaTexto));