Esta linea me llama la atencion:
cierra:= date; Copy(date, 1, Pos('º', date)-1);
en realidad son 2 lineas, y segun yo, ese copy te regresa el caption de la ventana que vas a cerrar, sin embargo date sigue valiendo lo mismo asi que no encuentra la ventana y como te regresa un null, quiere cerrar el sistema
|