Fórum Impressão Direto p/ Porta não esta funcionando em Rede ? #258694

Tenho esta rotina que uso p/ enviar direto p/ porta esse pequeno relatório, Uso uma Rede em Win98 uma impressora Epsonlx 300 no servidor e na estacao1 ela esta instalada como impressora de rede.
Quando envio da estação o sistema alem de não enviar trava. antes eu usava esta rotina e QR e dava tudo certo é que agora preciso que seja assim alguem poderia me ajudar.

Obrigado a tds !!

var
Pr : TextFile;
begin
assignFile(pr,´LPT1´);
rewrite(pr); //Inicia a rotina de impressão
Writeln(pr, ´================================================´);
Writeln(pr,StringOfChar(´ ´,15)+ VFantasia) ;
Writeln(pr,StringOfChar(´ ´,15)+ EndeEmpresa ) ;
Writeln(pr,StringOfChar(´ ´,15)+ MaskString(Telefone, MaskFone,True)) ;
Writeln(pr,StringOfChar(´ ´,15)+ CidadeEmpresa) ;
Writeln(pr, ´================================================´);
Writeln(pr,StringOfChar(´ ´,15)+ ´MAPA DE CAIXA´) ;
Writeln(pr,´DATA/HORA.:´ + DateTostr(Now) +StringOfChar(´ ´,2 )+ TimeTostr(now));
Writeln(pr,´OPERADOR..:´ +PanelOperador.Caption ) ;
Writeln(pr, ´================================================´ ) ;
Writeln(pr,´DINHEIRO ´ +Dinheiro.Caption ) ;
Writeln(pr,´CARTAO ´ +Cartao.Caption ) ;
Writeln(pr,´CHEQUE ´ +ChequeVista.Caption ) ;
Writeln(pr,´CONVENIO ´ +Convenio.Caption ) ;
Writeln(pr,´A PRAZO ´ +Prazo.Caption ) ;
Writeln(pr,´CHEQUE-PRE ´ +Chequepre.Caption ) ;
Writeln(pr,´SANGRIAS ´ +PanelSangria.Caption ) ;
Writeln(pr,´SUPLEMENTOS ´ +PanelSuplemento.Caption ) ;
Writeln(pr, ´================================================´ ) ;
Writeln(pr,´TOTAL DE VENDAS A VISTA.: ´+PanelTotalVista.Caption ) ;
Writeln(pr,´TOTAL DE RECEBIMENTOS...: ´+PanelTotRec.Caption ) ;
Writeln(pr,´SUBTOTAL===========> ´+PanelSubTotal.Caption ) ;
Writeln(pr, ´================================================´ ) ;
Writeln(pr,´TOTAL DE VENDAS A PRAZO.: ´+PanelTotalPrazo.Caption ) ;
Writeln(pr,´TOTAL DO MAPA =====> ´+TotalMapa.Caption ) ;
Writeln(pr,´ ´) ;
CloseFile(Pr) ;