[Skey]

Mira ya reinstale el drivers pero me sigue marcando error mando imprimir al la impresora de puerto con este codigo, pero me marca el error de AssignFile(Output,'LPT1'); y me dice que acceso denegado al Archivo

Código Delphi [-]
procedure TForm_Canadienses.btn_aceptarClick(Sender: TObject);
VAR
S :STRING;
begin
num_cantidadC.OnExit(Sender);
if (num_cantidadC.Value > 0.0) and (num_cantidadC.Value < 3000.00) and (num_pesosC.Value < 30000.00)then
begin
  guardar(_FOLIOC, num_cantidadC.Value, num_pesosC.Value,'COMPRA', _TCC,Form_Inicio_Sesion.qry_UsuariosNO_USUARIO.Value);
  _FOLIOC := nextFolio('COMPRA');
  lb_folioC.Caption := 'Folio: ' +IntToStr(_FOLIOC);
 {// Impresion del Ticket //
AssignFile(Output,'LPT1');
Rewrite(Output);
Writeln(output,trim(Form_Principal.EmpresaNOMBRE_EMPRESA.Value));
Writeln(output,trim(Form_Principal.EmpresaCALLENO.Value+'  '+Form_Principal.EmpresaCOLONIA.Value));
Writeln(output,trim(Form_Principal.EmpresaCUIDAD.Value+'  '+Form_Principal.EmpresaESTADO.Value));
Writeln(output,trim(Form_Principal.EmpresaRFC.Value+'  '+Form_Principal.EmpresaTELEFONO.Value));
Writeln(output,'');
S := 'Folio:' +IntToStr(_FOLIOC-1)+'    '+DateToStr(Date)+'    '+TimeToStr(Time);
Writeln(output, s);
Writeln(output,'');
s :=hcompra.Caption;
Writeln(output,s);
Writeln(output,'');
s :=num_cantidadC.Value;
Writeln(output,'Cantidad:'+s);
Writeln(output,'');
s :=FloatToStr(_TCC);
Writeln(output,'TC:$  '+S);
Writeln(output,'');
s :=num_pesosC.Value;
Writeln(output,'Pesos:'+s);
Writeln(output,'');
S := Form_Inicio_Sesion.qry_UsuariosNOMBRE_USUARIO.Value;
Writeln(output,'Cajero: '+s);
Writeln(Output,'');
Writeln(Output,'');
Writeln(Output,'');
Writeln(Output,'');
Writeln(Output,'');
Writeln(Output,'');
Reset(Output);
CloseFile(Output);}
//********************************//
end
else
begin
ShowMessage('No se Puede Realizar Esta Operacion');
  num_cantidadC.Clear;
  num_pesosC.Clear;
  num_cantidadC.SetFocus;
end;
 num_cantidadC.SetFocus;

JvValidateEdit3.Text := FloatToStr(getSaldo('EUROS'));
JvValidateEdit4.Text := FloatToStr(getSaldo('DOLARES CANADIENSES'));
JvValidateEdit2.Text:= FloatToStr(getSaldo('DOLARES AMERICANOS'));
JvValidateEdit1.Text := FloatToStr(getSaldo('PESOS M.N.'));
JvValidateEdit5.Text := FloatToStr(getSaldo('YEN'));
JvValidateEdit6.Text := FloatToStr(getSaldo('FRANCO SUIZO'));
JvValidateEdit7.Text:= FloatToStr(getSaldo('LIBRAS ESTERLINAS'));

end;