Error 103 I/O

[[cHackAll]]

Empezado por heroe

Probe tu código, pero me da el error 105.

Cielos, esperemos que con esto solucionemos el problema;

Código Delphi [-]
procedure Imprimir;
var Archivo: TextFile;
begin
 AssignFile(Archivo, '\\Servidor\LPT1');
 FileMode := fmOpenReadWrite;
 {$I-} Reset(Archivo); {$I+}
 if IoResult = 0 then
  begin
   Writeln(Archivo, 'Prueba');
   CloseFile(Archivo);
  end;
end;

Suerte