rewrite tarda si no hay red

[jonmendi]

Hola!
tengo el siguiente código:

  
  ....
 
  Assign(f, 'X:\sem.txt');
  {$I-}
  { es aquí donde se queda colgado al buscar red y no tenerla}
  Rewrite(f);
  {$I+}
  if IOResult = 0 then begin
    {$I-}
      Writeln(f, '1');
    {$I+}
    Close(f);
  end;
 
  ....

X: es una unidad de red abierta anteriormente.
Si hay red, no hay ningún problema, pero si quito el latiguillo de red (para simular una caida de la misma), el programa se queda casi un minuto en la sentencia Rewrite(f).
¿Alguien sabe como acortar este tiempo? ¿U otro modo de hacer esto mismo?

Muchas gracias!
un saludo,
Jon