Si no me equivoco, la condición del if nunca se va a cumplir
Código Delphi
[-]if copy(date,1,5)='Upload' then
porque la cadena que se extrae de date es de longitud 5 y se compara contra una de longitud 6.
__________________
eLcHiCoTeMiDo - Rompecorazones profesional
Yo no soy presumido; ¿Pero de qué sirve mi humilde opinión contra la de los espejos?
Salva a un nylon, usa prendas de piel de foca