[Casimiro Noteví]

Esquemáticamente, por ejemplo, cuando inicias una subida de archivos, pones una variable a true: bSubiendoArchivos := true;
Entonces si alguien va a cerrar el programa:

Código Delphi [-]
if bSubiendoArchivos then
  minimize
else
  close;