Erro ao Imprimir em rede

Estou com problemas na hora que eu tento imprimir na rede em uma impressora Laser.
Usei isso
--------------------------------
AssignFile(Arquivo,ComboBox1.Text);
Rewrite(Arquivo);
For X := 0 to Texto.Lines.Count - 1 do begin
if Texto.Lines.Strings[X] = ´Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== Quebra de Página ====== ´ then begin
Continue;
End;
WriteLn(Arquivo, #2715+´ ´ + Texto.Lines.Strings[X]);
End;
CloseFile(Arquivo);


ERRO

I/O error 53