Enviar Compactado Epson lx300 ?

const
cEject = #12;
{ Tamanho da fonte }
c10cpi = 18;
c12cpi = 2777;
c17cpi = 15;
AssignFile(F, ´LPT1´);
Rewrite(F);
While not TempEtiqueta.Eof do
begin
WriTeln(F,Descr1 + StringOfChar(´ ´,6)+ Descr2 ) ;
TempEtiqueta.Next ;
end;
CloseFile(F)
end;
Já tentei assim

Tenho o seguinte código que envio direto p/ impressora
só que se eu colocar
WriTeln(F,c17cpi+Descr1 + StringOfChar(´ ´,6)+ Descr2 ) ;
Não compacta + se eu fizer o exemplo abaixo ele faz como poderia
fazer isto na mimha realidade ?

var
Texto: string;
F: TextFile;
begin
Texto := c17cpi + ´a Epson LX 300. ´ ;
AssignFile(F, ´LPT1´);
Rewrite(F);
try
WriteLn(F, cJustif, Texto);
WriteLn(F, cEject);
finally
CloseFile(F);
end;