[lavtaro]

Empezado por coso

¿y como imprimes? probaria de abrirlo en modo escritura antes de imprimir y si salta error, es que el archivo esta siendo actualizado.

Gracias amigos solucioné el problema con este código:

Código Delphi [-]
     nEspera := 0;

     while nEspera = 0 do
     begin
       FileHandle := FileOpen(cNombreOrigen, fmOpenWrite );
       if FileHandle <>  -1 then nEspera := 1;
     end;

     FileClose(FileHandle);

No es muy elegante pero funciona.

Muchas gracias a todos.